diff options
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 839ab1d1..249f7b1b 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -413,17 +413,17 @@ hashNewLookupInTable(op,sig,dollar,[domain,opvec],flag) == success := nil $isDefaultingPackage: local := -- use special defaulting handler when dollar non-trivial - dollar ^= domain and isDefaultPackageForm? devaluate domain + dollar ~= domain and isDefaultPackageForm? devaluate domain while finish > start repeat PROGN i := start numTableArgs :=numvec.i predIndex := numvec.(i := QSADD1 i) - (predIndex ^= 0) and null testBitVector(predvec,predIndex) => nil + (predIndex ~= 0) and null testBitVector(predvec,predIndex) => nil exportSig := [newExpandTypeSlot(numvec.(i + j + 1), dollar,domain) for j in 0..numTableArgs] - sig ^= hashType(['Mapping,: exportSig],hashPercent) => nil --signifies no match + sig ~= hashType(['Mapping,: exportSig],hashPercent) => nil --signifies no match loc := numvec.(i + numTableArgs + 2) loc = 1 => (someMatch := true) loc = 0 => @@ -450,7 +450,7 @@ hashNewLookupInTable(op,sig,dollar,[domain,opvec],flag) == return (success := newLookupInAddChain(op,sig,domain,dollar)) systemError '"unexpected format" start := QSPLUS(start,QSPLUS(numTableArgs,4)) - (success ^= 'failed) and success => + (success ~= 'failed) and success => if $monitorNewWorld then sayLooking1('"<----",uu) where uu() == PAIRP success => [first success,:devaluate rest success] @@ -477,7 +477,7 @@ hashNewLookupInCategories(op,sig,dom,dollar) == valueList := [MKQ val for val in valueList] nsig := MSUBST(dom.0,dollar.0,sig) for i in 0..MAXINDEX packageVec | - (entry := packageVec.i) and entry ^= true repeat + (entry := packageVec.i) and entry ~= true repeat package := VECP entry => if $monitorNewWorld then @@ -501,7 +501,7 @@ hashNewLookupInCategories(op,sig,dom,dollar) == opvec.(code+2) --not nrunNumArgCheck(#(QCDR sig),byteVector,opvec.code,endPos) => nil --numOfArgs := byteVector.(opvec.code) - --numOfArgs ^= #(QCDR sig) => nil + --numOfArgs ~= #(QCDR sig) => nil packageForm := [entry,'$,:CDR cat] package := evalSlotDomain(packageForm,dom) packageVec.i := package |