;; dict.txt

;; --- dict ---

(dict)
=> (dict)

(dict '(a 1) '(b 2))
=> (dict (a 1) (b 2))

;; --- dict-set! ---

(define d (dict '(a 1) '(b 2)))
(dict-set! d 'c 3)
d
=> (dict (a 1) (b 2) (c 3))
(dict-set! d 'c 4)
d
=> (dict (a 1) (b 2) (c 4))

;; --- dict-get ---

(dict-get d 'c)
=> (c 4)
(dict-get d 'bogus)
=> #f

;; --- dict-items & friends ---

(dict-items d)
=> ((a 1) (b 2) (c 4))
(dict-keys d)
=> (a b c)
(dict-values d)
=> (1 2 4)

(dict-length d)
=> 3

;; --- dict-delete! ---

(dict-delete! d 'a)
=> #t
(dict-items d)
=> ((b 2) (c 4))
(dict-delete! d 'z)
=> #f
(dict-items d)
=> ((b 2) (c 4))