[MLton-commit] r7549

[Matthew F. <fl...@ml...>]

Fix type error introduced by previous commit.
----------------------------------------------------------------------

U   mlton/trunk/mlyacc/src/yacc.sml

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

Modified: mlton/trunk/mlyacc/src/yacc.sml
===================================================================
--- mlton/trunk/mlyacc/src/yacc.sml	2011-06-17 15:21:05 UTC (rev 7548)
+++ mlton/trunk/mlyacc/src/yacc.sml	2011-06-17 15:51:43 UTC (rev 7549)
@@ -781,7 +781,7 @@
     in  let val result = TextIO.openOut (spec ^ ".sml")
             val sigs = TextIO.openOut (spec ^ ".sig")
             val specFile = OS.Path.file spec
-            val resultFile = OS.Path.file result
+            val resultFile = specFile ^ ".sml"
             val line = ref 1
             val col = ref 0
             val pr = fn s => TextIO.output(result,s)