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)))
(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)))