X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=sbcl-pwd.sh;h=c9d13c311cdd63a1428967e6f3cf35e0b10c5bf8;hb=979539d20a27f4315db9e1bde0a4413135cf8603;hp=e4be84d7163d34627159f789f4b98c7019c9aaa5;hpb=1acfa21e0796f5d72d776b0fd53645813d5f2d98;p=sbcl.git

diff --git a/sbcl-pwd.sh b/sbcl-pwd.sh
index e4be84d..c9d13c3 100644
--- a/sbcl-pwd.sh
+++ b/sbcl-pwd.sh
@@ -4,10 +4,13 @@
 # This ensures that SBCL_PWD is a path understandable to SBCL.
 
 sbcl_pwd() {
-    if [ "$OSTYPE" = "cygwin" ] ; then
-	SBCL_PWD=`cygpath -m $a(pwd)`
-    else
-	SBCL_PWD=`pwd`
-    fi
+    case "${OSTYPE:-}" in
+        cygwin)
+            SBCL_PWD="`cygpath -m \"$(pwd)\"`" ;;
+        msys)
+            SBCL_PWD="`pwd -W`" ;;
+        *)
+            SBCL_PWD="`pwd`" ;;
+    esac
     export SBCL_PWD
 }