~ chicken-core (chicken-5) 49958f2b6d7d23d1a2cfdf537d17540b31f8f26e

commit 49958f2b6d7d23d1a2cfdf537d17540b31f8f26e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Dec 11 13:16:13 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Dec 11 13:16:13 2010 +0100

    syntax-test test-macro fix by sjamaan

diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index a66ef763..4da0f85d 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -15,9 +15,10 @@
 (define-syntax f
   (syntax-rules ()
     ((_ x)
-     (handle-exceptions ex (void)
-       x
-       (error "test returned, but should have failed" 'x) ))))
+     (let ((got-error #f))
+      (handle-exceptions ex (set! got-error #t) x)
+      (unless got-error
+        (error "test returned, but should have failed" 'x) )))))
 
 (t 3 3)