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 364, Fri Jul 2 07:33:12 1999 UTC revision 365, Fri Jul 2 08:38:07 1999 UTC
# Line 135  Line 135 
135            val theValues = ref (NONE: kernelValues option)            val theValues = ref (NONE: kernelValues option)
136    
137        in        in
138              fun setAnchor (a, s) = PathConfig.set (pcmode, a, s)
139    
140            fun initPaths () = let            fun initPaths () = let
141                val p =                val p =
142                    case OS.Process.getEnv "HOME" of                    case OS.Process.getEnv "HOME" of
# Line 310  Line 312 
312          val make = make          val make = make
313          val autoload = autoload          val autoload = autoload
314          val reset = reset          val reset = reset
315    
316            val verbose = EnvConfig.getSet StdConfig.verbose
317            val debug = EnvConfig.getSet StdConfig.debug
318            val keep_going = EnvConfig.getSet StdConfig.keep_going
319            val parse_caching = EnvConfig.getSet StdConfig.parse_caching
320            val setAnchor = setAnchor
321      end      end
322    
323      fun init (bootdir, de, er) =      fun init (bootdir, de, er) =

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

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