From e88adcff035ac357b03f21325c0edacbc3d55b66 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 23 Feb 2010 18:53:04 +0000
Subject: 	* interp/nruncomp.boot (genDeltaEntry): Don't store extraneous
 	item on $NRTdeltaList. 	(NRTgetLocalIndex): Likewise.  Tidy.

---
 src/interp/nruncomp.boot | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index dce086dc..0dfd95f5 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -198,7 +198,7 @@ genDeltaEntry opMmPair ==
   if null NRTassocIndex dc and
     (member(dc,$functorLocalParameters) or not atom dc) then
     --create "%domain" entry to $NRTdeltaList
-      $NRTdeltaList:= [["%domain",NRTaddInner dc,:dc],:$NRTdeltaList]
+      $NRTdeltaList:= [["%domain",NRTaddInner dc],:$NRTdeltaList]
       saveNRTdeltaListComp:= $NRTdeltaListComp:=[nil,:$NRTdeltaListComp]
       $NRTdeltaLength := $NRTdeltaLength+1
       compEntry:= (compOrCroak(odc,$EmptyMode,$e)).expr
@@ -232,12 +232,8 @@ NRTgetLocalIndex item ==
   k := NRTassocIndex item => k
   item = "$" => 0
   item = "$$" => 2
-  value:=
-    atom item =>
-      MEMQ(item,$formalArgList) => item
-    nil
-  atom item and null value =>  --give slots to atoms
-    $NRTdeltaList:= [["%domain",NRTaddInner item,:value],:$NRTdeltaList]
+  atom item and not MEMQ(item,$formalArgList) =>  --give slots to atoms
+    $NRTdeltaList:= [["%domain",NRTaddInner item],:$NRTdeltaList]
     $NRTdeltaListComp:=[item,:$NRTdeltaListComp]
     index := $NRTbase + $NRTdeltaLength      -- slot number to return
     $NRTdeltaLength := $NRTdeltaLength+1
@@ -245,7 +241,7 @@ NRTgetLocalIndex item ==
   -- when assigning slot to flag values, we don't really want to
   -- compile them.  Rather, we want to record them as if they were atoms.
   flag := isQuasiquote item
-  $NRTdeltaList:= [["%domain", NRTaddInner item,:value], :$NRTdeltaList]
+  $NRTdeltaList:= [["%domain", NRTaddInner item], :$NRTdeltaList]
   -- remember the item's place in the `delta list' and its slot number
   -- before the recursive call to the compiler, as that might generate
   -- more references that would extend the `delta list'.
-- 
cgit v1.2.3