~ chicken-core (chicken-5) f242bcda3611b5411c9d6dd3e8b5ae87334e787e

commit f242bcda3611b5411c9d6dd3e8b5ae87334e787e
Author:     felix <felix@z.(none)>
AuthorDate: Fri Feb 25 12:25:29 2011 +0100
Commit:     felix <felix@z.(none)>
CommitDate: Fri Feb 25 12:25:29 2011 +0100

    meta-syntax-test test

diff --git a/tests/meta-syntax-test.scm b/tests/meta-syntax-test.scm
index 4ce32f11..80b53bcc 100755
--- a/tests/meta-syntax-test.scm
+++ b/tests/meta-syntax-test.scm
@@ -1,11 +1,10 @@
-;;; currently disabled, need to compile matchable properly
+;;;; meta-syntax-test.scm
+
 
 (module foo (bar)
   (import scheme chicken)
-  (import-for-syntax matchable)
   (begin-for-syntax
    (define (baz x) 
-     (match x
-       ((_ y) (list y)))))
+     (list (cadr x))))
   (define-syntax (bar x r c)
-    `(,(r 'print) (,(r 'list) (baz (list 1 ,(cadr x)))))))
+    `(,(r 'list) (baz (list 1 ,(cadr x))))))
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 1b76427d..e544c7d9 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -126,11 +126,11 @@ echo "======================================== syntax tests (2, compiled) ..."
 $compile syntax-tests-2.scm
 ./a.out
 
-#echo "======================================== meta-syntax tests ..."
-#$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e '(bar 1 2)'
-#$compile_s meta-syntax-test.scm -j foo
-#$compile_s foo.import.scm
-#$interpret -bnq -e '(require-library meta-syntax-test)' -e '(import foo)' -e '(bar 1 2)'
+echo "======================================== meta-syntax tests ..."
+$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))"
+$compile_s meta-syntax-test.scm -j foo
+$compile_s foo.import.scm
+$interpret -bnq -e '(require-library meta-syntax-test)' -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))"
 
 echo "======================================== reexport tests ..."
 $interpret -bnq reexport-tests.scm