diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:08:10 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:08:10 +0000 |
commit | acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882 (patch) | |
tree | 80794b9d25f799edc826d20407339d6384f9b03d /src/interp/interop.boot | |
parent | 53356dde96d8bc9e264dbd291df8b9b3a75aa5d1 (diff) | |
download | open-axiom-acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882.tar.gz |
cleanup
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index eb6e14bd..b700041d 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -200,7 +200,7 @@ quoteCatOp cat == oldAxiomCategoryLookupExport(catenv, self, op, sig, box, env) == [catform,hash, pack,:.] := catenv - opIsHasCat op => if EQL(sig, hash) then [self] else nil + opIsHasCat op => if scalarEqual?(sig, hash) then [self] else nil null(pack) => nil if not vector? pack then pack:=apply(pack, [self, :rest catform]) @@ -236,7 +236,7 @@ attributeDevaluate(attrObj, env) == attributeLookupExport(attrObj, self, op, sig, box, env) == [name, hash] := attrObj - opIsHasCat op => if EQL(hash, sig) then [self] else nil + opIsHasCat op => if scalarEqual?(hash, sig) then [self] else nil attributeHashCode(attrObj, env) == [name, hash] := attrObj @@ -363,13 +363,13 @@ oldAxiomDomainLookupExport _ (domenv, self, op, sig, box, skipdefaults, env) == domainVec := rest domenv if hashCode? op then - EQL(op, $hashOp1) => op := 'One - EQL(op, $hashOp0) => op := 'Zero - EQL(op, $hashOpApply) => op := 'elt - EQL(op, $hashOpSet) => op := 'setelt - EQL(op, $hashSeg) => op := 'SEGMENT + scalarEqual?(op, $hashOp1) => op := 'One + scalarEqual?(op, $hashOp0) => op := 'Zero + scalarEqual?(op, $hashOpApply) => op := 'elt + scalarEqual?(op, $hashOpSet) => op := 'setelt + scalarEqual?(op, $hashSeg) => op := 'SEGMENT constant := nil - if hashCode? sig and self and EQL(sig, getDomainHash self) then + if hashCode? sig and self and scalarEqual?(sig, getDomainHash self) then sig := '($) constant := true val := @@ -419,7 +419,7 @@ basicLookupCheckDefaults(op,sig,domain,dollar) == $hasCatOpHash := hashString '"%%" opIsHasCat op == - hashCode? op => EQL(op, $hasCatOpHash) + hashCode? op => scalarEqual?(op, $hasCatOpHash) op = "%%" -- has cat questions lookup up twice if false @@ -440,12 +440,12 @@ oldCompLookupNoDefaults(op, sig, domvec, dollar) == hashNewLookupInTable(op,sig,dollar,[domain,opvec],flag) == opIsHasCat op => HasCategory(domain, sig) - if hashCode? op and EQL(op, $hashOp1) then op := 'One - if hashCode? op and EQL(op, $hashOp0) then op := 'Zero + if hashCode? op and scalarEqual?(op, $hashOp1) then op := 'One + if hashCode? op and scalarEqual?(op, $hashOp0) then op := 'Zero hashPercent := vector? dollar => hashType(dollar.0,0) hashType(dollar,0) - if hashCode? sig and EQL(sig, hashPercent) then + if hashCode? sig and scalarEqual?(sig, hashPercent) then sig := hashType('(Mapping $), hashPercent) dollar = nil => systemError() $lookupDefaults = true => |