blob: 010b712524af6b396b7dff9cf501992cc85990b8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
;;; Section 3.3.3 -- Tables
;;; One-dimensional tables
(define (lookup key table)
(let ((record (assoc key (cdr table))))
(if (not record)
#f
(cdr record))))
(define (insert! key value table)
(let ((record (assoc key (cdr table))))
(if (not record)
(set-cdr! table
(cons (cons key value) (cdr table)))
(set-cdr! record value)))
'ok)
(define (make-table)
(list '*table*))
|