| 1234567891011121314151617 |
- ; Part of Scheme 48 1.9. See file COPYING for notices and license.
- ; Authors: Richard Kelsey, Jonathan Rees
- (define (make-table . hash-procedure-option) (list 'table))
- (define (table-ref table key)
- (let ((probe (assq key (cdr table))))
- (if probe (cdr probe) #f)))
- (define (table-set! table key value)
- (let ((probe (assq key (cdr table))))
- (if probe
- (set-cdr! probe value)
- (set-cdr! table (cons (cons key value) (cdr table))))))
|
