3 (define (lookup key table)
4 (let ((record (assoc key (cdr table))))
9 (define (assoc key records)
12 ((equal? key (car (car records))) (car records))
13 (else (assoc key (cdr records)))))
15 (define (insert! key value table)
16 (let ((record (assoc key (cdr table))))
18 (set-cdr! record value)
20 (cons (cons key value) (cdr table)))))