1 665c255d 2023-08-04 jrmu (define (make-table)
 2 665c255d 2023-08-04 jrmu   (define (assoc key records)
 3 665c255d 2023-08-04 jrmu     (cond ((null? records) false)
 4 665c255d 2023-08-04 jrmu 	  ((equal? key (caar records)) (car records))
 5 665c255d 2023-08-04 jrmu 	  (else (assoc key (cdr records)))))
 6 665c255d 2023-08-04 jrmu   (let ((local-table (list '*table*)))
 7 665c255d 2023-08-04 jrmu     (define (lookup key-list)
 8 665c255d 2023-08-04 jrmu       (define (lookup1 keys table)
 9 665c255d 2023-08-04 jrmu 	(let ((subtable (assoc (car keys) (cdr table))))
10 665c255d 2023-08-04 jrmu 	  (if subtable
11 665c255d 2023-08-04 jrmu 	      (if (null? (cdr keys))
12 665c255d 2023-08-04 jrmu 		  (cdr subtable)
13 665c255d 2023-08-04 jrmu 		  (lookup1 (cdr keys) subtable))
14 665c255d 2023-08-04 jrmu 	      false)))
15 665c255d 2023-08-04 jrmu       (lookup1 key-list local-table))