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

Diff of /sml/trunk/src/cm/cm-boot.sml

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

revision 365, Fri Jul 2 08:38:07 1999 UTC revision 366, Fri Jul 2 14:13:29 1999 UTC
# Line 301  Line 301 
301                                (HostMachDepVC.Interact.installCompManager                                (HostMachDepVC.Interact.installCompManager
302                                      (SOME al_manager');                                      (SOME al_manager');
303                                 autoload "basis.cm";                                 autoload "basis.cm";
304                                 AutoLoadHook.autoloadHook := autoload)                                 autoload "host-cm.cm";
305                                   CmHook.init
306                                     { stabilize = stabilize,
307                                       recomp = recomp,
308                                       make = make,
309                                       autoload = autoload,
310                                       reset = reset,
311                                       verbose =
312                                          EnvConfig.getSet StdConfig.verbose,
313                                       debug =
314                                          EnvConfig.getSet StdConfig.debug,
315                                       keep_going =
316                                          EnvConfig.getSet StdConfig.keep_going,
317                                       parse_caching =
318                                          EnvConfig.getSet StdConfig.parse_caching,
319                                       setAnchor = setAnchor })
320    
321                    end                    end
322            end            end
323        end        end
324    in    in
     structure CM = struct  
         val stabilize = stabilize  
         val recomp = recomp  
         val make = make  
         val autoload = autoload  
         val reset = reset  
   
         val verbose = EnvConfig.getSet StdConfig.verbose  
         val debug = EnvConfig.getSet StdConfig.debug  
         val keep_going = EnvConfig.getSet StdConfig.keep_going  
         val parse_caching = EnvConfig.getSet StdConfig.parse_caching  
         val setAnchor = setAnchor  
     end  
   
325      fun init (bootdir, de, er) =      fun init (bootdir, de, er) =
326          (system_values := de;          (system_values := de;
327           initTheValues (bootdir, er);           initTheValues (bootdir, er);

Legend:
Removed from v.365  
changed lines
  Added in v.366

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