* interp/sys-globals.boot ($compilingInputFile): Remove.

	($minivectorNames): Likewise.
	* interp/i-map.boot (compileCoerceMap): Don't set $minivectorNames
	and $minivectorCode.
	* interp/i-spec1.boot (compileADEFBody): Likewise.
	* interp/i-toplev.boot (processInteractive): Likewise.
	* interp/nrungo.boot (NRTgetMinivectorIndex): Likewise.
	* interp/slam.boot (reportFunctionCompilation): Likewise.

7 files changed, 11 insertions, 21 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index eaf728fc..76c338e2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,14 @@
+2008-08-03  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* interp/sys-globals.boot ($compilingInputFile): Remove.
+	($minivectorNames): Likewise.
+	* interp/i-map.boot (compileCoerceMap): Don't set $minivectorNames
+	and $minivectorCode.
+	* interp/i-spec1.boot (compileADEFBody): Likewise.
+	* interp/i-toplev.boot (processInteractive): Likewise.
+	* interp/nrungo.boot (NRTgetMinivectorIndex): Likewise.
+	* interp/slam.boot (reportFunctionCompilation): Likewise.
+
 2008-08-02  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* interp/nrungo.boot (NRTisRecurrenceRelation): Lookup "not" with 
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index f5ad2a2e..547a8a2b 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -754,10 +754,7 @@ compileCoerceMap(op,argTypes,mm) ==
   parms:= [:parms,'envArg]
   body := ['SPADCALL,:argCode,['LIST,['function,imp]]]
   minivectorName := makeInternalMapMinivectorName(name)
-  $minivectorNames := [[op,:minivectorName],:$minivectorNames]
   body := substitute(minivectorName,"$$$",body)
-  if $compilingInputFile then
-    $minivectorCode := [:$minivectorCode,minivectorName]
   setDynamicBinding(minivectorName,LIST2REFVEC $minivector)
   compileInteractive [name,['LAMBDA,parms,body]]
   CAR sig
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index c0ab9bc5..986e0f6b 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -155,10 +155,7 @@ compileADEFBody(t,vars,types,body,computedResultType) ==
 --+
   $compiledOpNameList := [$mapName]
   minivectorName := makeInternalMapMinivectorName(PNAME $mapName)
-  $minivectorNames := [[$mapName,:minivectorName],:$minivectorNames]
   body := substitute(minivectorName,"$$$",body)
-  if $compilingInputFile then
-    $minivectorCode := [:$minivectorCode,minivectorName]
   setDynamicBinding(minivectorName,LIST2REFVEC $minivector)
 
   -- The use of the three variables $definingMap, $genValue and $compilingMap
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot
index c8f4f9d0..378a1399 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -156,8 +156,6 @@ processInteractive(form, posnForm) ==
   $fortVar : local :=              --variable name for FORTRAN output
      $defaultFortVar
   $minivector: local := NIL
-  $minivectorCode: local := NIL
-  $minivectorNames: local := NIL
   $domPvar: local := NIL
   $inRetract: local := NIL
   object := processInteractive1(form, posnForm)
diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot
index fd7c9b99..725be391 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -323,10 +323,6 @@ NRTgetMinivectorIndex(u,op,sig,domVector) ==
   k := or/[k for k in 0..(s-1)
         for x in $minivector | EQ(x,u)] => k
   $minivector := [:$minivector,u]
-  if $compilingInputFile then
-    $minivectorCode := [:$minivectorCode,[op,sig,devaluate domVector]]
---  pp '"-- minivectorCode -->"
---  pp $minivectorCode
   s
 
 NRTisRecurrenceRelation(op,body,minivectorName) ==
diff --git a/src/interp/slam.boot b/src/interp/slam.boot
index b6ad0acc..7ffac994 100644
--- a/src/interp/slam.boot
+++ b/src/interp/slam.boot
@@ -44,10 +44,7 @@ reportFunctionCompilation(op,nam,argl,body,isRecursive) ==
 --+
   $compiledOpNameList := [nam]
   minivectorName := makeInternalMapMinivectorName(nam)
-  $minivectorNames := [[op,:minivectorName],:$minivectorNames]
   body := substitute(minivectorName,"$$$",body)
-  if $compilingInputFile then
-    $minivectorCode := [:$minivectorCode,minivectorName]
   setDynamicBinding(minivectorName,LIST2REFVEC $minivector)
   argl := COPY argl     -- play it safe for optimization
   init :=
diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot
index 67499dec..bd47c14e 100644
--- a/src/interp/sys-globals.boot
+++ b/src/interp/sys-globals.boot
@@ -419,12 +419,6 @@ OUTPUT_-LIBRARY := nil
 ++
 $newConlist := nil
 
-++
-$compilingInputFile := false
-
-++
-$minivectorNames := []
-
 ++ True if the input file uses old semantics of `Rep',
 ++ e.g. implicit equivalent Rep <-> % with capsules.  
 ++ This semenatics is in effect only when `Rep' is defined