diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-16 17:40:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-16 17:40:37 +0000 |
commit | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (patch) | |
tree | baf864d2f488e01ca000fdbafa04a74e192dbad9 /src/interp/interop.boot | |
parent | 5986d1ca9a814c4c7da81cebd3fb152e4592036e (diff) | |
download | open-axiom-f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8.tar.gz |
cleanup
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index b700041d..62cb156f 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -463,12 +463,12 @@ hashNewLookupInTable(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 := if hashCode? sig then -1 else (#sig)-1 success := nil $isDefaultingPackage: local := |