diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-02 10:53:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 10:53:56 +0000 |
| commit | e694e02b3c8e9ae322df7440a29c3011a11503e7 (patch) | |
| tree | 5dbeebcf26c3be930421b77d688384f0e19f8f5b /src/interp/interop.boot | |
| parent | 6835b7615420cbb3d0db15c2a5ab1c5785ff40dd (diff) | |
| download | open-axiom-e694e02b3c8e9ae322df7440a29c3011a11503e7.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/interop.boot')
| -rw-r--r-- | src/interp/interop.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 20c4c920..847edadd 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -458,7 +458,7 @@ hashNewLookupInTable(op,sig,dollar,[domain,opvec],flag) == '"----> searching op table for:","%l"," "),op,sig,dollar) someMatch := false numvec := getDomainByteVector domain - predvec := vectorRef(domain,3) + predvec := domainPredicates domain max := maxIndex opvec k := getOpCode(op,opvec,max) or return flag => newLookupInAddChain(op,sig,domain,dollar) @@ -529,7 +529,7 @@ hashNewLookupInCategories(op,sig,dom,dollar) == $lookupDefaults : local := nil if $monitorNewWorld = true then sayBrightly concat('"----->", form2String devaluate dom,'"-----> searching default packages for ",op) - predvec := dom.3 + predvec := domainPredicates dom packageVec := first slot4 --the next three lines can go away with new category world varList := ['$,:$FormalMapVariableList] @@ -622,7 +622,7 @@ newHasAttribute(domain,attrib) == LASSOC(attrib,domain.2) predIndex => predIndex = 0 => true - predvec := domain.3 + predvec := domainPredicates domain testBitVector(predvec,predIndex) false @@ -638,7 +638,7 @@ newHasCategory(domain,catform) == predIndex := lazyMatchAssocV1(catform,catvec,domain) null predIndex => false predIndex = 0 => true - predvec := vectorRef(domain,3) + predvec := domainPredicates domain testBitVector(predvec,predIndex) lazyMatchAssocV(catform,auxvec,catvec,domain) --new style |