diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 10 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 11 |
3 files changed, 13 insertions, 13 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index d4ac5bc8..167cfae8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-08-12 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/sys-driver.boot (SPAD-SAVE): Fold content into + savesystem. Remove. + 2008-08-11 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/Makefile.pamphlet: Move warm.data.stanza to topics.boot. 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 |