diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-syscmd.boot | 10 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 11 |
2 files changed, 8 insertions, 13 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 9c921167..9390db26 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2237,8 +2237,14 @@ readSpad2Cmd l == --% )savesystem savesystem l == - #l ^= 1 or not(SYMBOLP CAR l) => helpSpad2Cmd '(savesystem) - SPAD_-SAVE SYMBOL_-NAME CAR l + #l ^= 1 or not(SYMBOLP first l) => helpSpad2Cmd '(savesystem) + SETQ($SpadServer,false) + SETQ($openServerIfTrue,true) +)if not %hasFeature KEYWORD::ECL + AxiomCore::saveCore SYMBOL_-NAME first l +)else + fatalError '"don't know how to same image" +)endif --% )show diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 25605895..8aae9eb7 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -159,17 +159,6 @@ restart() == spad() -++ ??? Rework this -SPAD_-SAVE(file) == - SETQ($SpadServer,false) - SETQ($openServerIfTrue,true) -)if %hasFeature KEYWORD::GCL - SYSTEM::SAVE_-SYSTEM file -)else - fatalError '"don't know how to same image" -)endif - - initializeGlobalState() == REROOT() $IOindex := 1 |