~ 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