[MLton-commit] r6965

[Ville Laurikari]

Reverted change done in r6964.  Mere concatenation of the SML files
won't produce a directly compilable with anything but a trivial flat
MLB structure.  I suppose it's better to keep the MLB files in there,
although I fail to see how "-stop sml" is useful with MLB files.

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

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