diff options
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f101bf6d..e2116f08 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -174,6 +174,12 @@ restart() == --% +initializeDatabases firstTime? == + initdb := getOptionValue "initial-db" => populateDBFromFile initdb + not firstTime? => openDatabases() + fillDatabasesInCore() + mkLowerCaseConTable() + ++ Initialize all global states that need to. Sub-routine of the command ++ line compiler, the script executor, etc. Mess with care. initializeGlobalState() == @@ -211,11 +217,7 @@ initializeGlobalState() == -- 3. Databases if $verbose and $displayStartMsgs then sayKeyedMsg("S2IZ0053",['"database"]) - if init? then - fillDatabasesInCore() - mkLowerCaseConTable() - else - openDatabases() + initializeDatabases init? -- 4. Constructors if $verbose and $displayStartMsgs then |