From a900fca6eb41da95b869ca6bdd0a53f4fe319dea Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 13 Aug 2008 01:56:02 +0000
Subject: 	* interp/sys-driver.boot (SPAD-SAVE): Fold content into 
 savesystem.  Remove.

---
 src/interp/sys-driver.boot | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'src/interp/sys-driver.boot')

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