diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-02-23 18:53:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-02-23 18:53:04 +0000 |
| commit | e88adcff035ac357b03f21325c0edacbc3d55b66 (patch) | |
| tree | 9bcbef6a5d1a01a8964e6f09e5f72c7eff1222f7 /src/interp | |
| parent | 3f8bdbabb7bfcf9b021fe1529e603e931b57bf13 (diff) | |
| download | open-axiom-e88adcff035ac357b03f21325c0edacbc3d55b66.tar.gz | |
* interp/nruncomp.boot (genDeltaEntry): Don't store extraneous
item on $NRTdeltaList.
(NRTgetLocalIndex): Likewise. Tidy.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nruncomp.boot | 12 |
1 files changed, 4 insertions, 8 deletions
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'. |