University of Washington • CSE583 • D. Notkin © 2000
59
Functions in data structures
l(define FileMenu
  (list (list ‘Open… open-fn)
        (list ‘Save save-fn)
        (list ‘SaveAs… save-as-fn)
        (list ‘Quit quit-fn)) l(define (click key)
  (let ((fn (assoc FileMenu key))) (fn)))
l