diff options
author | dos-reis <gdr@axiomatics.org> | 2010-03-10 09:02:58 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-03-10 09:02:58 +0000 |
commit | 6844898e025e87c3d6753d648a65fe4a82b8bc55 (patch) | |
tree | 8337810e54a19623ecca05419f8e36bc7b73ffba /src/interp/nruncomp.boot | |
parent | c4e4529187db6e0aba25f8af43cf7be4cc15386e (diff) | |
download | open-axiom-6844898e025e87c3d6753d648a65fe4a82b8bc55.tar.gz |
* interp/nruncomp.boot (genDeltaEntry): Take a second, environment
argument. Pass to compOrCroak.
* interp/compiler.boot (compElt): Adjust call to genDeltaEntry.
(compCase1): Likewise.
(coerceByModemap): Likewise.
(autoCoerceByModemap): Likewise.
(compCat): Likewise.
(compViableModemap): Take an additional environment argument.
Pass it to genDeltaEntry.
(compApplyModemap): Adjust call to compViableModemap.
(compResolveCall): Likewise.
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 3b1dd8e3..69a50c7a 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -188,7 +188,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) == fun := first fun getFunctionReplacement compileTimeBindingOf fun -genDeltaEntry opMmPair == +genDeltaEntry(opMmPair,e) == --called from compApplyModemap --$NRTdeltaLength=0.. always equals length of $NRTdeltaList [op,[dc,:sig],[.,cform:=[eltOrConst,.,nsig]]] := opMmPair @@ -212,7 +212,7 @@ genDeltaEntry opMmPair == $NRTdeltaList:= [["%domain",NRTaddInner dc],:$NRTdeltaList] saveNRTdeltaListComp:= $NRTdeltaListComp:=[nil,:$NRTdeltaListComp] $NRTdeltaLength := $NRTdeltaLength+1 - compEntry:= (compOrCroak(odc,$EmptyMode,$e)).expr + compEntry:= (compOrCroak(odc,$EmptyMode,e)).expr RPLACA(saveNRTdeltaListComp,compEntry) u := [eltOrConst,'$,$NRTbase+$NRTdeltaLength-index] where index() == |