X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=run-sbcl.sh;h=44aaf683e148ddfbb99a29672496be19fbb077fe;hb=25c1769e30ff7404b52a9be663626d87f8ff75bc;hp=26dc4068928f7cbb60b642f7de6d434f543de833;hpb=26d0559df82a00acf85b8ec89541ee8e09bb3e55;p=sbcl.git

diff --git a/run-sbcl.sh b/run-sbcl.sh
old mode 100644
new mode 100755
index 26dc406..44aaf68
--- a/run-sbcl.sh
+++ b/run-sbcl.sh
@@ -22,6 +22,10 @@ else
     BASE=`pwd`
     cd "${opwd}"
 fi
+if [ "$OSTYPE" = "cygwin" ]
+then
+    BASE=`cygpath -w "$BASE"`
+fi
 CORE_DEFINED=no
 
 for arg in $*; do
@@ -48,8 +52,8 @@ if [ "$CORE_DEFINED" = "no" ]; then
 fi
 
 if [ -x "$BASE"/src/runtime/sbcl -a -f "$BASE"/output/sbcl.core ]; then
-    echo "(running SBCL from: $BASE)"
-    SBCL_HOME="$BASE"/contrib "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
+    echo "(running SBCL from: $BASE)" 1>&2
+    SBCL_HOME="$BASE/obj/sbcl-home" "$BASE"/src/runtime/sbcl $ARGUMENTS "$@"
 else
     echo "No built SBCL here ($BASE): run 'sh make.sh' first!"
     exit 1