[MLton-commit] r5487

[Matthew Fluet]

Forgot syserr argument
----------------------------------------------------------------------

U   mlton/trunk/basis-library/posix/error.sml

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

Modified: mlton/trunk/basis-library/posix/error.sml
===================================================================
--- mlton/trunk/basis-library/posix/error.sml	2007-03-29 19:18:57 UTC (rev 5486)
+++ mlton/trunk/basis-library/posix/error.sml	2007-03-29 19:37:47 UTC (rev 5487)
@@ -221,7 +221,7 @@
          end
 
       fun raiseSys n = raise SysErr (errorMsg n, SOME n)
-      fun raiseSysWithMsg (n, msg) = raise SysErr ((errorMsg n) ^ ": " ^ msg)
+      fun raiseSysWithMsg (n, msg) = raise SysErr ((errorMsg n) ^ ": " ^ msg, SOME n)
 
       structure SysCall =
          struct