1 665c255d 2023-08-04 jrmu (define (make-table)
2 665c255d 2023-08-04 jrmu   (let ((local-table (list '*table*)))
3 665c255d 2023-08-04 jrmu     (define (locate key otherkeys table)
4 665c255d 2023-08-04 jrmu       (let ((value (assoc key (cdr table))))