From da9f79f1d47983d726e90858f85b074dc88d0866 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Apr 2008 10:34:36 +0000
Subject: 	* interp/compiler.boot (compWithMappingMode): Use
 getShellEntry. 	* interp/define.boot (compDefineFunctor1): Use
 setShellEntry. 	(canCacheLocalDomain): Likewise. 
 (compilerCases): Likewise. 	(doIt): Likewise. 	* interp/functor.boot
 (setVector0): Likewise. 	(setVector3): Likewise. 
 (setVector4part4): Likewise. 	(setVector5): Likewise. 
 (mkVectorWithDeferral): Likewise. 	(DescendCodeAdd1): Likewise. 
 (DescendCode): Likewise. 	(ConsantCreator): Likewise. 
 (SetFunctionSlots): Likewise. 	(CheckVector): Likewise. 	*
 interp/g-opt.boot (optCall): Use getShellEntry. 	(optSpecialCall):
 Likewise. 	* interp/i-util.boot (devaluate): Likewise. 	*
 interp/nruncomp.boot (buildFunctor): Use setShellEntry. 
 (NRTsetVector4a): Likewise. 	(NRTputInLocalReferences): Use getShellEntry. 
 (NRTputInHead): Likewise. 	* interp/nrunopt.boot (augmentPredVector): Use
 setShellEntry. 	* interp/nruntime.boot (getShellEntry): New. 
 (setShellEntry): Likewise. 	* interp/package.boot (processPackage): Use
 getShellEntry. 	(PackageDescendCode): Use setShellEntry. 	*
 interp/sys-globals.boot ($QuickCode): Remove. 	* interp/template.boot
 (NRTdescendCodeTran): Use setShellEntry. 	* interp/types.boot (%Void):
 New. 	(%Shell): New. 	* interp/wi2.boot (compDefineFunctor1): Use
 setShellEntry.

---
 src/interp/compiler.boot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/compiler.boot')

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 236f1d34..b70fafab 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -254,8 +254,8 @@ compWithMappingMode(x,m is ["Mapping",m',:sl],oldE) ==
       vec:=[first v,:vec]
       rest v = 1 =>
                 --Only used once
-        slist:=[[first v,($QuickCode => 'QREFELT;'ELT),"$$",i],:slist]
-      scode:=[['SETQ,first v,[($QuickCode => 'QREFELT;'ELT),"$$",i]],:scode]
+        slist:=[[first v,"getShellEntry","$$",i],:slist]
+      scode:=[['SETQ,first v,["getShellEntry","$$",i]],:scode]
       locals:=[first v,:locals]
     body:=
       slist => SUBLISNQ(slist,CDDR expandedFunction)
@@ -1484,7 +1484,6 @@ compileSpad2Cmd args ==
 
     -- following are for )quick option for code generation
     $QuickLet   : local := true
-    $QuickCode  : local := true
 
     fun         := ['rq, 'lib]
     constructor := nil
-- 
cgit v1.2.3