From a900fca6eb41da95b869ca6bdd0a53f4fe319dea Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 13 Aug 2008 01:56:02 +0000 Subject: * interp/sys-driver.boot (SPAD-SAVE): Fold content into savesystem. Remove. --- src/ChangeLog | 5 +++++ src/interp/i-syscmd.boot | 10 ++++++++-- src/interp/sys-driver.boot | 11 ----------- 3 files changed, 13 insertions(+), 13 deletions(-) (limited to 'src') 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 + + * interp/sys-driver.boot (SPAD-SAVE): Fold content into + savesystem. Remove. + 2008-08-11 Gabriel Dos Reis * 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 -- cgit v1.2.3