Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/compile/compile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/compile.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 451, Sat Oct 23 15:05:55 1999 UTC revision 452, Mon Oct 25 08:33:25 1999 UTC
# Line 336  Line 336 
336                                              else otherwise ()                                              else otherwise ()
337                                          end                                          end
338                                  fun compile_again () =                                  fun compile_again () =
339                                      compile_here (stat, sym, pids)                                      (Say.vsay ["[compiling ",
340                                                   SmlInfo.descr i, "]\n"];
341                                         compile_here (stat, sym, pids))
342                                  fun compile () = let                                  fun compile () = let
                                     val _ =  
                                         Say.vsay ["[compiling ",  
                                                   SmlInfo.descr i, "]\n"]  
343                                      val sp = SmlInfo.sourcepath i                                      val sp = SmlInfo.sourcepath i
344                                  in                                  in
345                                      if compile_there sp then                                      if compile_there sp then

Legend:
Removed from v.451  
changed lines
  Added in v.452

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0