diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-15 21:06:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-15 21:06:13 +0000 |
| commit | e906f65eed9a56f414d8dea0716acc03ddc6c8f0 (patch) | |
| tree | 2d188b1445b24a79c42e6708cd9cd5148104ee51 /src/interp/wi2.boot | |
| parent | 6c32bd875a857d1ff44ad9b8b555032c4be86cc6 (diff) | |
| download | open-axiom-e906f65eed9a56f414d8dea0716acc03ddc6c8f0.tar.gz | |
* interp/compiler.boot: Import "msgdb", not "c-util". Move
compiler driver to i-syscmd.boot.
* interp/define.boot: Import "nruncomp", "functor", "package".
* interp/wi2.boot (NRTgetLocalIndex): Remove duplicate.
Diffstat (limited to 'src/interp/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index e449b0f0..d0481570 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -671,30 +671,6 @@ compMapCond''(cexpr,dc) == --====================================================================== -- From nruncomp.boot --====================================================================== -NRTgetLocalIndex item == - k := NRTassocIndex item => k - item = $NRTaddForm => 5 - item = '$ => 0 - item = '_$_$ => 2 - value:= - MEMQ(item,$formalArgList) => item - nil - atom item and null MEMQ(item,'($ _$_$)) - and null value => --give slots to atoms - $NRTdeltaList:= [['domain,NRTaddInner item,:value],:$NRTdeltaList] - $NRTdeltaListComp:=[item,:$NRTdeltaListComp] - $NRTdeltaLength := $NRTdeltaLength+1 - $NRTbase + $NRTdeltaLength - 1 - $NRTdeltaList:= [['domain,NRTaddInner item,:value],:$NRTdeltaList] - saveNRTdeltaListComp:= $NRTdeltaListComp:=[nil,:$NRTdeltaListComp] - saveIndex := $NRTbase + $NRTdeltaLength - $NRTdeltaLength := $NRTdeltaLength+1 - compEntry:= item - ----94/11/07 - -- WAS: compOrCroak(item,$EmptyMode,$e).expr - RPLACA(saveNRTdeltaListComp,compEntry) - saveIndex - optDeltaEntry(op,sig,dc,eltOrConst) == return nil --------> kill it $killOptimizeIfTrue = true => nil |