From 9f15074c439f939c7b052b8de33c6b167d5f1cfa Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 11 Nov 2007 17:53:30 +0000 Subject: * Makefile.pamphlet (nrunfast.$(FASLEXT)): New rule. (nruncomp.$(FASLEXT)): Likewise. (<>): Remove (<>): Likewise. * nruncomp.boot.pamphlet: Push into package "BOOT". Fix syntax. * nrunfast.boot.pamphlet: Likewise. --- src/interp/nruncomp.boot.pamphlet | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/interp/nruncomp.boot.pamphlet') 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 @@ <<*>>= <> +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 -- cgit v1.2.3