scsh-0.5/alt/table.scm

15 lines
369 B
Scheme
Raw Normal View History

; unworthy of copyright notice
(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))))))