~ chicken-core (chicken-5) 68f6393a5ff35b64a850d9bbf7e9e067ffef07ff

commit 68f6393a5ff35b64a850d9bbf7e9e067ffef07ff
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jun 12 15:51:12 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jun 12 15:51:12 2025 +0200

    add test for recently fixed library-syntax problem with "include"

diff --git a/distribution/manifest b/distribution/manifest
index e18531a2..d19d2fdd 100644
--- a/distribution/manifest
+++ b/distribution/manifest
@@ -261,6 +261,8 @@ tests/file-encoding-test.scm
 tests/i-dont-know-i-just-work-here.utf-8.txt
 tests/i-dont-know-i-just-work-here.latin-1.txt
 tests/r7rs-tests-2.scm
+tests/r7rs-library-tests.scm
+tests/r7rs-library-tests-code.scm
 tests/life.scm
 tests/include.scm
 tests/include-ci.scm
diff --git a/tests/r7rs-library-tests-code.scm b/tests/r7rs-library-tests-code.scm
new file mode 100644
index 00000000..db895220
--- /dev/null
+++ b/tests/r7rs-library-tests-code.scm
@@ -0,0 +1,6 @@
+(define (fx x)
+  (+ x x))
+
+(define-syntax mx
+  (syntax-rules ()
+    ((_ x) (+ x x))))
diff --git a/tests/r7rs-library-tests.scm b/tests/r7rs-library-tests.scm
new file mode 100644
index 00000000..c575f085
--- /dev/null
+++ b/tests/r7rs-library-tests.scm
@@ -0,0 +1,8 @@
+;; by Anton Idukov (included code was expanded too early)
+(define-library (mod)
+  (export fx mx)
+  (import (scheme base))
+
+  (include "r7rs-library-tests-code.scm")
+
+  )
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 6561cf28..4fb147c1 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -335,6 +335,7 @@ $interpret -i -s r5rs_pitfalls.scm
 echo "======================================== r7rs tests ..."
 $interpret -s r7rs-tests.scm
 $interpret -s r7rs-tests-2.scm
+$interpret -s r7rs-library-tests.scm
 $interpret -s life.scm
 
 echo "======================================== module tests ..."