~ 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.soTrap