~ chicken-core (chicken-5) 7ea3d35311964adbffce778e6322c97a4a611da5


commit 7ea3d35311964adbffce778e6322c97a4a611da5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 29 14:54:30 2018 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Aug 31 06:31:51 2018 +1200

    For unsetting CHICKEN_REPOSITORY_PATH use "env -u" only when MSYSTEM is set
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/tests/runtests.sh b/tests/runtests.sh
index a77a892d..6675bb0d 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -63,10 +63,14 @@ mkdir -p test-repository
 cp $TYPESDB test-repository/types.db
 
 echo "======================================== repository search path ..."
-export -p >./env.out
-unset CHICKEN_REPOSITORY_PATH
-$interpret -s repository-path-default.scm
-. ./env.out
+if test -z "$MSYSTEM"; then
+  export -p >./env.out
+  unset CHICKEN_REPOSITORY_PATH
+  $interpret -s repository-path-default.scm
+  . ./env.out
+else
+  env -u CHICKEN_REPOSITORY_PATH $interpret -s repository-path-default.scm
+fi
 $compile_s sample-module.scm -j sample-module
 cp sample-module.so $CHICKEN_INSTALL_REPOSITORY
 cp sample-module.import.scm $CHICKEN_INSTALL_REPOSITORY
Trap