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/recomp.sml
ViewVC logotype

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

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

revision 367, Sat Jul 3 04:59:01 1999 UTC revision 368, Sat Jul 3 13:05:59 1999 UTC
# Line 235  Line 235 
235                      case SmlInfo.parsetree gp i of                      case SmlInfo.parsetree gp i of
236                          NONE => NONE                          NONE => NONE
237                        | SOME (ast, source) => let                        | SOME (ast, source) => let
238                              val _ = Say.vsay ["[compiling ", SmlInfo.descr i,                              val _ =
239                                                " -> ", binname, "...]\n"]                                 Say.vsay ["[compiling ", SmlInfo.descr i, "]\n"]
240                              val corenv = #corenv (#param gp)                              val corenv = #corenv (#param gp)
241                              val cmData = PidSet.listItems pids                              val cmData = PidSet.listItems pids
242                              (* clear error flag (could still be set from                              (* clear error flag (could still be set from

Legend:
Removed from v.367  
changed lines
  Added in v.368

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