[MLton-commit] r6964

[Ville Laurikari]

Fixed "-stop sml" to not include MLB file contents in the produced
.sml file.  Now the produced .sml file is valid SML code and can be
compiled.

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

U   mlton/trunk/mlton/ast/ast-mlbs.fun

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

Modified: mlton/trunk/mlton/ast/ast-mlbs.fun
===================================================================
--- mlton/trunk/mlton/ast/ast-mlbs.fun	2008-10-27 08:16:22 UTC (rev 6963)
+++ mlton/trunk/mlton/ast/ast-mlbs.fun	2008-10-31 08:12:43 UTC (rev 6964)
@@ -1,4 +1,4 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -128,8 +128,7 @@
                      else let
                              val () = b := true
                           in
-                             Buffer.add (sourceFiles, fileAbs)
-                             ; sourceFilesBasdec (Promise.force dec)
+                             sourceFilesBasdec (Promise.force dec)
                           end
                end
           | Open _ => ()