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

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

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

revision 432, Fri Sep 10 05:44:08 1999 UTC revision 433, Mon Sep 13 06:57:29 1999 UTC
# Line 156  Line 156 
156            end            end
157    
158            fun initPaths () = let            fun initPaths () = let
159                val lpcth = EnvConfig.getSet StdConfig.local_pathconfig NONE                val lpcth = #get StdConfig.local_pathconfig ()
160                val p = case lpcth () of                val p = case lpcth () of
161                    NONE => []                    NONE => []
162                  | SOME f => [f]                  | SOME f => [f]
163                val p = EnvConfig.getSet StdConfig.pathcfgspec NONE :: p                val p = #get StdConfig.pathcfgspec () :: p
164                fun processOne f = PathConfig.processSpecFile (pcmode, f)                fun processOne f = PathConfig.processSpecFile (pcmode, f)
165                    handle _ => ()                    handle _ => ()
166            in            in
# Line 175  Line 175 
175                { primconf = #primconf v,                { primconf = #primconf v,
176                  fnpolicy = fnpolicy,                  fnpolicy = fnpolicy,
177                  pcmode = pcmode,                  pcmode = pcmode,
178                  symenv = SSV.env,                  symval = SSV.symval,
179                  keep_going = EnvConfig.getSet StdConfig.keep_going NONE,                  keep_going = #get StdConfig.keep_going (),
180                  pervasive = #pervasive v,                  pervasive = #pervasive v,
181                  corenv = #corenv v,                  corenv = #corenv v,
182                  pervcorepids = #pervcorepids v }                  pervcorepids = #pervcorepids v }
# Line 262  Line 262 
262                val ginfo = { param = { primconf = Primitive.primEnvConf,                val ginfo = { param = { primconf = Primitive.primEnvConf,
263                                        fnpolicy = fnpolicy,                                        fnpolicy = fnpolicy,
264                                        pcmode = pcmode,                                        pcmode = pcmode,
265                                        symenv = SSV.env,                                        symval = SSV.symval,
266                                        keep_going = false,                                        keep_going = false,
267                                        pervasive = E.emptyEnv,                                        pervasive = E.emptyEnv,
268                                        corenv = BE.staticPart BE.emptyEnv,                                        corenv = BE.staticPart BE.emptyEnv,
# Line 353  Line 353 
353                                     make = make,                                     make = make,
354                                     autoload = autoload,                                     autoload = autoload,
355                                     reset = reset,                                     reset = reset,
356                                     verbose =                                     verbose = StdConfig.verbose,
357                                        EnvConfig.getSet StdConfig.verbose,                                     debug = StdConfig.debug,
358                                     debug =                                     keep_going = StdConfig.keep_going,
359                                        EnvConfig.getSet StdConfig.debug,                                     warn_obsolete = StdConfig.warn_obsolete,
360                                     keep_going =                                     parse_caching = StdConfig.parse_caching,
                                       EnvConfig.getSet StdConfig.keep_going,  
                                    warn_obsolete =  
                                       EnvConfig.getSet StdConfig.warn_obsolete,  
                                    parse_caching =  
                                       EnvConfig.getSet StdConfig.parse_caching,  
361                                     setAnchor = setAnchor,                                     setAnchor = setAnchor,
362                                     cancelAnchor = cancelAnchor,                                     cancelAnchor = cancelAnchor,
363                                     resetPathConfig = resetPathConfig,                                     resetPathConfig = resetPathConfig,
364                                     synchronize = SrcPath.sync,                                     synchronize = SrcPath.sync,
365                                     showPending = showPending,                                     showPending = showPending,
366                                     listLibs = listLibs,                                     listLibs = listLibs,
367                                     dismissLib = dismissLib })                                     dismissLib = dismissLib,
368                                       symval = SSV.symval })
369    
370                    end                    end
371            end            end

Legend:
Removed from v.432  
changed lines
  Added in v.433

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