~ chicken-core (chicken-5) ac0741ccadeb3187a699d08d6bbfe611c43c11ae
commit ac0741ccadeb3187a699d08d6bbfe611c43c11ae
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 2 15:40:57 2025 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 2 15:40:57 2025 +0100
avoid single quotes
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 4fb147c1..1dea4d28 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -251,10 +251,10 @@ $compile syntax-tests-2.scm
./a.out
echo "======================================== meta-syntax tests ..."
-$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))"
+$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e '(assert (equal? (quote ((1))) (bar 1 2)))' -e '(assert (equal? (quote (list 1 2 3)) (listify)))' -e '(import test-import-syntax-for-syntax)' -e '(assert (equal? (quote (1)) (test)))' -e '(import test-begin-for-syntax)' -e '(assert (equal? (quote (1)) (test)))'
$compile_s meta-syntax-test.scm -j foo
$compile_s foo.import.scm
-$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))"
+$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e '(assert (equal? (quote ((1))) (bar 1 2)))' -e '(assert (equal? (quote (list 1 2 3)) (listify)))' -e '(import test-import-syntax-for-syntax)' -e '(assert (equal? (quote (1)) (test)))' -e '(import test-begin-for-syntax)' -e '(assert (equal? (quote (1)) (test)))'
echo "======================================== reexport tests ..."
$interpret -bnq reexport-tests.scm
Trap