From 0062eb960026efdf72e3ecb301aa46054e0d5ca2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Nov 2011 05:28:24 +0000
Subject: 	* interp/compiler.boot ($compileOnlyCertainItems): Remove. 
 * interp/define.boot ($NRTslot1Info): Likewise. 	(getInfovecCode): Add
 additional environment argument.  Adjust caller. 	Call NRTmakeSlot1Info
 here. 	(NRTgetLookupFunction): Lose second and third arguments.  They are 
 derivable from the DB argument.  Adjust caller. 	(compDefineFunctor1):
 Do not bind $NRTslot1Info. 	(compDefineCapsuleFunction): Adjust. 
 (compile): Likewise. 	* interp/i-syscmd.boot
 (compilerDoitWithScreenedLisplib): 	Remove. Adjust caller. 	*
 interp/nruncomp.boot (NRTmakeSlot1Info): Tak a DB argument. 	Adjust caller.
 	(mkSlot1sublis): Remove.

---
 src/interp/i-syscmd.boot | 23 +----------------------
 1 file changed, 1 insertion(+), 22 deletions(-)

(limited to 'src/interp/i-syscmd.boot')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index a6483122..ec20fd06 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -527,7 +527,6 @@ compileSpad2Cmd args ==
     optList :=  '( _
       break _
       constructor _
-      functions _
       library _
       lisp _
       new _
@@ -543,7 +542,6 @@ compileSpad2Cmd args ==
         )
 
     $scanIfTrue              : local := false
-    $compileOnlyCertainItems : local := nil
     $f                       : local := nil  -- compiler
     $m                       : local := nil  --   variables
 
@@ -571,10 +569,6 @@ compileSpad2Cmd args ==
         fullopt is 'break       => $scanIfTrue := nil
         fullopt is 'vartrace    => $QuickLet  := false
         fullopt is 'lisp        => throwKeyedMsg("S2IZ0036",['")lisp"])
-        fullopt is 'functions   =>
-            null optargs =>
-              throwKeyedMsg("S2IZ0037",['")functions"])
-            $compileOnlyCertainItems := optargs
         fullopt is 'constructor =>
             null optargs =>
               throwKeyedMsg("S2IZ0037",['")constructor"])
@@ -590,11 +584,7 @@ compileSpad2Cmd args ==
     $InteractiveMode : local := nil
     -- avoid Boolean semantics transformations based on syntax only
     $normalizeTree: local := false
-    if $compileOnlyCertainItems then
-        null constructor => sayKeyedMsg("S2IZ0040",nil)
-        compilerDoitWithScreenedLisplib(constructor, fun)
-    else
-        compilerDoit(constructor, fun)
+    compilerDoit(constructor, fun)
     if not $buildingSystemAlgebra then 
       extendLocalLibdb $newConlist
     terminateSystemCommand()
@@ -615,17 +605,6 @@ compilerDoit(constructor, fun) ==
         null member(ii,$constructorsSeen) =>
           sayBrightly ['">>> Warning ",'"%b",ii,'"%d",'" was not found"]
 
-compilerDoitWithScreenedLisplib(constructor, fun) ==
-    EMBED('RWRITE,
-          '(LAMBDA (KEY VALUE STREAM)
-                   (COND ((AND (EQ STREAM $libFile)
-                               (NOT (MEMBER KEY $saveableItems)))
-                          VALUE)
-                         ((NOT NIL)
-                          (RWRITE KEY VALUE STREAM)))) )
-    (try compilerDoit(constructor,fun); finally SEQ(UNEMBED 'RWRITE))
-
-
 --% )copyright -- display copyright notice
 
 summary l ==
-- 
cgit v1.2.3