X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=sbcl-pwd.sh;h=487a5d5cc2e8e70a8bcd43f5b896d7a6291a6e4d;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=dcf677b7cebde88a644e729f44cddac3004e0e38;hpb=8c773ad69a6dd73e3588f5a4ff89e1e26f05e3a0;p=sbcl.git

diff --git a/sbcl-pwd.sh b/sbcl-pwd.sh
index dcf677b..487a5d5 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 \"$(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
 }