~ chicken-core (chicken-5) 2120443009d8cadb33a19abd4388ea0d0c8b63a6
commit 2120443009d8cadb33a19abd4388ea0d0c8b63a6
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jan 2 02:28:28 2010 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jan 2 02:28:28 2010 +0100
possible fix for reexport problem
diff --git a/expand.scm b/expand.scm
index b5d37898..47a80665 100644
--- a/expand.scm
+++ b/expand.scm
@@ -962,7 +962,7 @@
'reexport '()
(##sys#er-transformer
(cut ##sys#expand-import <> <> <> ##sys#current-environment ##sys#macro-environment
- #t #t 'reexport) ) )
+ #f #t 'reexport) ) )
(define ##sys#initial-macro-environment (##sys#macro-environment))
diff --git a/tests/reexport-m1.scm b/tests/reexport-m1.scm
index 2358ef47..e08ddb58 100644
--- a/tests/reexport-m1.scm
+++ b/tests/reexport-m1.scm
@@ -1,4 +1,4 @@
(module reexport-m1 ()
(import scheme chicken)
- (require-library srfi-1)
- (reexport (only srfi-1 cons*)))
+ (require-library srfi-1 srfi-13)
+ (reexport (only srfi-1 cons*) srfi-13))
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 522553de..4374be98 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -100,7 +100,7 @@ $compile compiler-syntax-tests.scm
./a.out
echo "======================================== import library tests ..."
-rm -f foo.import.*
+rm -f ../foo.import.* foo.import.*
$compile import-library-test1.scm -emit-import-library foo
$interpret -s import-library-test2.scm
$compile_s foo.import.scm -o foo.import.so
Trap