diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-04 01:58:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-04 01:58:13 +0000 |
commit | 03ab6db167d40e2448dee7de702dc77a62e57617 (patch) | |
tree | ce17fdb8da1be75b2ed9a1454d6320443deb342f /src/interp/interop.boot | |
parent | e2618c92315f6b544e41c9b7d4cad92adcf98655 (diff) | |
download | open-axiom-03ab6db167d40e2448dee7de702dc77a62e57617.tar.gz |
cleanu up
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index bd9cf23f..4c5b62ee 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -418,7 +418,7 @@ hashNewLookupInTable(op,sig,dollar,[domain,opvec],flag) == PROGN i := start numTableArgs :=numvec.i - predIndex := numvec.(i := QSADD1 i) + predIndex := numvec.(i := i + 1) (predIndex ~= 0) and null testBitVector(predvec,predIndex) => nil exportSig := [newExpandTypeSlot(numvec.(i + j + 1), |