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/i-syscmd.boot | |
| 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/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 10 |
1 files changed, 8 insertions, 2 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 |