[MLton-commit] r4173

[Stephen Weeks]

Added .exe suffix on MinGW.

----------------------------------------------------------------------

U   mlton/trunk/bin/mlton-script

----------------------------------------------------------------------

Modified: mlton/trunk/bin/mlton-script
===================================================================
--- mlton/trunk/bin/mlton-script	2005-11-08 20:22:55 UTC (rev 4172)
+++ mlton/trunk/bin/mlton-script	2005-11-08 20:30:37 UTC (rev 4173)
@@ -6,11 +6,19 @@
 
 dir=`dirname $0`
 lib=`cd $dir/../lib && pwd`
+eval `$lib/platform`
 gcc='gcc'
-mlton="$lib/mlton-compile"
+case "$HOST_OS" in
+mingw)
+	exe='.exe'
+;;
+*)
+	exe=''
+;;
+esac
+mlton="$lib/mlton-compile$exe"
 world="$lib/world.mlton"
 nj='sml'
-eval `$lib/platform`
 # Try to use the SML/NJ .arch-n-opsys
 if .arch-n-opsys >/dev/null 2>&1; then
         eval `.arch-n-opsys`