diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 3 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 3 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-globals.boot | 5 |
4 files changed, 11 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 644a7f79..b3f6a7f7 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1741,7 +1741,8 @@ compileSpad2Cmd args == compilerDoitWithScreenedLisplib(constructor, fun) else compilerDoit(constructor, fun) - extendLocalLibdb $newConlist + if not $buildingSystemAlgebra then + extendLocalLibdb $newConlist terminateSystemCommand() spadPrompt() diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 9390db26..d45895b2 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -608,7 +608,8 @@ compileAsharpCmd1 args == else if ^beQuiet then sayKeyedMsg("S2IZ0084", nil) - extendLocalLibdb $newConlist + if not $buildingSystemAlgebra then + extendLocalLibdb $newConlist compileAsharpArchiveCmd args == -- Assume we entered from the "compiler" function, so args ^= nil diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 593244f3..f620ea09 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -189,6 +189,8 @@ initializeGlobalState() == RESTART0() $NEWSPAD := true $SPAD := true + $buildingSystemAlgebra := + getOptionValue(Option '"system-algebra",%systemOptions()) ++ execute Spad script executeSpadScript(progname,options,file) == diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot index bd47c14e..c66f0d82 100644 --- a/src/interp/sys-globals.boot +++ b/src/interp/sys-globals.boot @@ -468,3 +468,8 @@ $OutputStream := $ErrorStream := MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" + +--% + +++ True if we are building the system algebra. +$buildingSystemAlgebra := false |