~ chicken-core (chicken-5) b09d9cfc8f6b26549f8457dcae5d59179448784b

commit b09d9cfc8f6b26549f8457dcae5d59179448784b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 29 14:39:34 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 29 14:39:34 2011 +0200

    fixed bug in tests/test.scm

diff --git a/tests/test.scm b/tests/test.scm
index e1f57b71..d8bd1c55 100644
--- a/tests/test.scm
+++ b/tests/test.scm
@@ -78,7 +78,7 @@
   (syntax-rules ()
     ((_ name expr value eq) (run-equal name (lambda () expr) value eq))
     ((_ name expr value) (run-equal name (lambda () expr) value equal?))
-    ((_ expr value) (run-equal (->string value) (lambda () expr) value equal?))))
+    ((_ expr value) (run-equal (->string 'expr) (lambda () expr) value equal?))))
 
 (define-syntax test-error
   (syntax-rules ()