diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-13 01:56:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-13 01:56:02 +0000 |
| commit | a900fca6eb41da95b869ca6bdd0a53f4fe319dea (patch) | |
| tree | e336b3fc0bcf23a82b54a67f30acb02341fe97dd /src/interp | |
| parent | 40f51a79d0985127cb339a874d533e689b580e16 (diff) | |
| download | open-axiom-a900fca6eb41da95b869ca6bdd0a53f4fe319dea.tar.gz | |
* interp/sys-driver.boot (SPAD-SAVE): Fold content into
savesystem. Remove.
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 |