From cd644b54246a889f6f8860feb7d918fc8953178d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 26 Oct 2011 00:06:33 +0200 Subject: [PATCH] fix a vhash test * test-suite/tests/vlist.test ("vhash"): As far as I can tell this test was not testing the right thing. --- test-suite/tests/vlist.test | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test-suite/tests/vlist.test b/test-suite/tests/vlist.test index d939284c1..d9bbbebce 100644 --- a/test-suite/tests/vlist.test +++ b/test-suite/tests/vlist.test @@ -220,11 +220,11 @@ (and (fold (lambda (k v result) (and result (equal? (cons k v) - (vhash-assq k vh)))) + (vhash-assoc k vh)))) #t keys values) - (not (vhash-assq 'x vh))))) + (not (vhash-assoc 'x vh))))) (pass-if "vhash as vlist" (let* ((keys '(a b c d e f g h i))