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

Diff of /sml/trunk/src/cm/main/cleanup.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 666, Fri Jun 16 08:27:00 2000 UTC
# Line 11  Line 11 
11          val label = "CM-Cleanup"          val label = "CM-Cleanup"
12          fun atInit initPaths _ =          fun atInit initPaths _ =
13              (EnvConfig.init ();              (EnvConfig.init ();
14               initPaths ();               initPaths ())
              SrcPath.sync ())  
15      in      in
16          fun install initPaths =          fun install initPaths =
17              ignore (C.addCleaner (label, [C.AtInit], atInit initPaths))              ignore (C.addCleaner (label, [C.AtInit], atInit initPaths))

Legend:
Removed from v.651  
changed lines
  Added in v.666

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