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