chibi/hash.scm


1
2
3
4
5
6
7
8
9
10
11
12

(import (scheme base)
	(scheme write)
	(srfi 69))

(define names 
	(make-hash-table eq?))

(hash-table-set! names 'jmc "John McCarthy")
(hash-table-set! names 'gjs "Gerald Jay Sussman")

(display 
	(hash-table-keys names))