diff options
Diffstat (limited to 'src/interp/nrunfast.boot')
| -rw-r--r-- | src/interp/nrunfast.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index e74132fb..5c91fc85 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -188,12 +188,12 @@ newLookupInTable(op,sig,dollar,[domain,opvec],flag) == k := getOpCode(op,opvec,max) or return flag => newLookupInAddChain(op,sig,domain,dollar) nil - maxIndex := MAXINDEX numvec + idxmax := MAXINDEX numvec start := opvec.k finish := QSGREATERP(max,k) => opvec.(QSPLUS(k,2)) - maxIndex - if QSGREATERP(finish,maxIndex) then systemError '"limit too large" + idxmax + if QSGREATERP(finish,idxmax) then systemError '"limit too large" numArgs := QSDIFFERENCE(#sig,1) success := nil $isDefaultingPackage: local := @@ -547,12 +547,12 @@ lookupInDomainByName(op,domain,arg) == predvec := domain.3 max := MAXINDEX opvec k := getOpCode(op,opvec,max) or return nil - maxIndex := MAXINDEX numvec + idxmax := MAXINDEX numvec start := opvec.k finish := QSGREATERP(max,k) => opvec.(QSPLUS(k,2)) - maxIndex - if QSGREATERP(finish,maxIndex) then systemError '"limit too large" + idxmax + if QSGREATERP(finish,idxmax) then systemError '"limit too large" success := false while finish > start repeat i := start |