diff options
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 4cdeebf0..f1a39c85 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -57,12 +57,18 @@ $PrintCompilerMessageIfTrue := $verbose ++ $options := [] +$OpenAxiomCoreModuleLoaded := false + +++ Initialization routine run by the core system before handing off +++ to the interpreter or compiler. +++ ??? This part is still in flux. AxiomCore::%sysInit() == SETQ(_*PACKAGE_*, FIND_-PACKAGE '"BOOT") initMemoryConfig() + if not (%hasFeature KEYWORD::GCL or $OpenAxiomCoreModuleLoaded) then + loadNativeModule CONCAT(systemRootDirectory(), + '"lib/libopen-axiom-core.so") + $OpenAxiomCoreModuleLoaded := true )if %hasFeature KEYWORD::GCL SETQ(COMPILER::_*COMPILE_-VERBOSE_*,false) SETQ(COMPILER::_*SUPPRESS_-COMPILER_-WARNINGS_*,true) @@ -105,6 +111,9 @@ loadExposureGroupData() == KEYWORD::VERBOSE,false,KEYWORD::IF_-DOES_-NOT_-EXIST,nil) => "done" "failed" +++ +$defaultMsgDatabaseName := nil + ++ REROOT: () -> %Thing REROOT() == |