SCM Repository
Diff of /sml/trunk/src/cm/cm-boot.sml
Parent Directory
| 
Revision Log
| 
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) = |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
