File mutils/tests/datastruct.scm from the latest check-in
(use test) (include "datastruct.scm") (define hh (make-hash-table)) (hierhash-set! hh 5 1 2 3 4) (test 5 (hierhash-ref hh 1 2 3 4)) (hierhash-set! hh 10 1 2 3 5) (test 10 (hierhash-ref hh 1 2 3 5)) (test 5 (hierhash-ref hh 1 2 3 4))