diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-11 17:53:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-11 17:53:30 +0000 |
| commit | 9f15074c439f939c7b052b8de33c6b167d5f1cfa (patch) | |
| tree | 26555260897e0f71493f8beed809f4d6d94607c5 /src/interp/nruncomp.boot.pamphlet | |
| parent | ed27313ddc520ba88e50489f11112bb08e153e3e (diff) | |
| download | open-axiom-9f15074c439f939c7b052b8de33c6b167d5f1cfa.tar.gz | |
* Makefile.pamphlet (nrunfast.$(FASLEXT)): New rule.
(nruncomp.$(FASLEXT)): Likewise.
(<<nrunfast.clisp>>): Remove
(<<nruncomp.clisp>>): Likewise.
* nruncomp.boot.pamphlet: Push into package "BOOT". Fix syntax.
* nrunfast.boot.pamphlet: Likewise.
Diffstat (limited to 'src/interp/nruncomp.boot.pamphlet')
| -rw-r--r-- | src/interp/nruncomp.boot.pamphlet | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/interp/nruncomp.boot.pamphlet b/src/interp/nruncomp.boot.pamphlet index fbc94289..0d8f0986 100644 --- a/src/interp/nruncomp.boot.pamphlet +++ b/src/interp/nruncomp.boot.pamphlet @@ -50,6 +50,10 @@ <<*>>= <<license>> +import '"c-util" +import '"simpbool" +)package "BOOT" + -----------------------------NEW buildFunctor CODE----------------------------- NRTaddDeltaCode() == --NOTES: This function is called from NRTbuildFunctor to initially @@ -195,11 +199,11 @@ genDeltaEntry opMmPair == $NRTdeltaList:= [['domain,NRTaddInner dc,:dc],:$NRTdeltaList] saveNRTdeltaListComp:= $NRTdeltaListComp:=[nil,:$NRTdeltaListComp] $NRTdeltaLength := $NRTdeltaLength+1 - compEntry:= compOrCroak(dc,$EmptyMode,$e).expr + compEntry:= (compOrCroak(dc,$EmptyMode,$e)).expr -- dc RPLACA(saveNRTdeltaListComp,compEntry) u := - [eltOrConst,'$,$NRTbase+$NRTdeltaLength-index] where index == + [eltOrConst,'$,$NRTbase+$NRTdeltaLength-index] where index() == (n:= POSN1(opModemapPair,$NRTdeltaList)) => n + 1 --n + 1 since $NRTdeltaLength is 1 too large $NRTdeltaList:= [opModemapPair,:$NRTdeltaList] @@ -249,7 +253,7 @@ NRTgetLocalIndex1(item,killBindingIfTrue) == saveNRTdeltaListComp:= $NRTdeltaListComp:=[nil,:$NRTdeltaListComp] saveIndex := $NRTbase + $NRTdeltaLength $NRTdeltaLength := $NRTdeltaLength+1 - compEntry:= compOrCroak(item,$EmptyMode,$e).expr + compEntry:= (compOrCroak(item,$EmptyMode,$e)).expr -- item RPLACA(saveNRTdeltaListComp,compEntry) saveIndex |