~ chicken-core (chicken-5) 7b82981dcff8993395fbf6064d36dce5c3a70f69


commit 7b82981dcff8993395fbf6064d36dce5c3a70f69
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Sep 19 00:15:01 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Sep 19 00:15:01 2010 +0200

    fixed srfi-69 tests

diff --git a/tests/hash-table-tests.scm b/tests/hash-table-tests.scm
index 8f0f62be..524c40de 100644
--- a/tests/hash-table-tests.scm
+++ b/tests/hash-table-tests.scm
@@ -55,7 +55,7 @@
 (assert (eq? (hash-table-ref ht 23.0) 'bar))
 
 (print "HT - Insert with update!")
-(hash-table-update! ht 'baz)
+(hash-table-update! ht 'baz identity (lambda () 'foo))
 (assert (eq? (hash-table-ref ht 'baz) 'foo))
 (assert (= (hash-table-size ht) 2))
 
Trap