[MLton-commit] r7162

[Matthew Fluet]

Seems more standard to pass path as argv[0].
----------------------------------------------------------------------

U   mlton/trunk/basis-library/mlton/process.sml

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

Modified: mlton/trunk/basis-library/mlton/process.sml
===================================================================
--- mlton/trunk/basis-library/mlton/process.sml	2009-06-17 20:42:41 UTC (rev 7161)
+++ mlton/trunk/basis-library/mlton/process.sml	2009-06-17 20:55:09 UTC (rev 7162)
@@ -278,14 +278,11 @@
          case protect (Process.fork, ()) of
             NONE => (* child *)
                let 
-                  val base =
-                     Substring.string
-                     (Substring.taker (fn c => c <> #"/") (Substring.full path))
                   fun dup2 (old, new) =
                      if old = new
                         then ()
                      else (IO.dup2 {old = old, new = new}; IO.close old)
-                  val args = base :: args
+                  val args = path :: args
                   val execTh =
                      case env of
                         NONE =>