SCM Repository
Diff of /sml/trunk/src/cm/compile/recomp.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
