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

Diff of /sml/trunk/src/cm/stable/stabilize.sml

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

revision 403, Tue Aug 31 07:44:29 1999 UTC revision 426, Tue Sep 7 06:36:12 1999 UTC
# Line 406  Line 406 
406                                                 localimports = li,                                                 localimports = li,
407                                                 globalimports = gi }                                                 globalimports = gi }
408                          in                          in
                             destroy_state gp smlinfo;  
409                              m := SmlInfoMap.insert (!m, smlinfo, n);                              m := SmlInfoMap.insert (!m, smlinfo, n);
410                              n                              n
411                          end                          end
# Line 424  Line 423 
423    
424                  val exports = SymbolMap.map impexp (#exports grec)                  val exports = SymbolMap.map impexp (#exports grec)
425              in              in
426                    SmlInfoMap.appi (fn (i, _) => destroy_state gp i) (!m);
427                  GG.GROUP { exports = exports,                  GG.GROUP { exports = exports,
428                             kind = GG.STABLELIB,                             kind = GG.STABLELIB,
429                             required = required,                             required = required,
# Line 452  Line 452 
452                                     cleanup = fn () =>                                     cleanup = fn () =>
453                                      (OS.FileSys.remove (mksname ())                                      (OS.FileSys.remove (mksname ())
454                                       handle _ => ()) })                                       handle _ => ()) })
455              handle exn => NONE              handle exn =>
456                    (EM.errorNoFile (#errcons gp, anyerrors) SM.nullRegion
457                        EM.COMPLAIN
458                        (concat ["Exception raised while stabilizing ",
459                                 SrcPath.descr grouppath])
460                        EM.nullErrorBody;
461                     NONE)
462          end          end
463      in      in
464          case #kind grec of          case #kind grec of

Legend:
Removed from v.403  
changed lines
  Added in v.426

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