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 450, Fri Oct 22 17:10:09 1999 UTC revision 451, Sat Oct 23 15:05:55 1999 UTC
# Line 261  Line 261 
261                      case SmlInfo.parsetree gp i of                      case SmlInfo.parsetree gp i of
262                          NONE => NONE                          NONE => NONE
263                        | SOME (ast, source) => let                        | SOME (ast, source) => let
                             val _ =  
                                Say.vsay ["[compiling ", SmlInfo.descr i, "]\n"]  
264                              val corenv = #corenv (#param gp)                              val corenv = #corenv (#param gp)
265                              val cmData = PidSet.listItems pids                              val cmData = PidSet.listItems pids
266                              (* clear error flag (could still be set from                              (* clear error flag (could still be set from
# Line 340  Line 338 
338                                  fun compile_again () =                                  fun compile_again () =
339                                      compile_here (stat, sym, pids)                                      compile_here (stat, sym, pids)
340                                  fun compile () = let                                  fun compile () = let
341                                        val _ =
342                                            Say.vsay ["[compiling ",
343                                                      SmlInfo.descr i, "]\n"]
344                                      val sp = SmlInfo.sourcepath i                                      val sp = SmlInfo.sourcepath i
345                                  in                                  in
346                                      if compile_there sp then                                      if compile_there sp then

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

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