aboutsummaryrefslogtreecommitdiff
path: root/src/interp/buildom.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r--src/interp/buildom.boot8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot
index a9c89ca5..4d4322e7 100644
--- a/src/interp/buildom.boot
+++ b/src/interp/buildom.boot
@@ -64,7 +64,7 @@ $FirstParamSlot ==
lookupDisplay(op,sig,vectorOrForm,suffix) ==
not $NRTmonitorIfTrue => nil
- prefix := (suffix = '"" => ">"; "<")
+ prefix := (suffix is '"" => ">"; "<")
sayBrightly
concat(prefix,formatOpSignature(op,sig),
'" from ", prefix2String devaluateDeeply vectorOrForm,suffix)
@@ -107,7 +107,7 @@ compareSig(sig,tableSig,dollar,domain) ==
for s in rest sig for t in rest tableSig]
lazyCompareSigEqual(s,tslot,dollar,domain) ==
- tslot = '$ => s = "$" or s = devaluate dollar
+ tslot is '$ => s is "$" or s = devaluate dollar
integer? tslot and cons?(lazyt:=domain.tslot) and cons? s =>
lazyt is [.,.,.,[.,item,.]] and
item is [.,[functorName,:.]] and functorName = first s =>
@@ -126,7 +126,7 @@ compareSigEqual(s,t,dollar,domain) ==
rest(domain).(POSN1(t,$FormalMapVariableList))
string? t and IDENTP s => (s := symbolName s; t)
nil
- s = '$ => compareSigEqual(dollar,u,dollar,domain)
+ s is '$ => compareSigEqual(dollar,u,dollar,domain)
u => compareSigEqual(s,u,dollar,domain)
s = u
s='$ => compareSigEqual(dollar,t,dollar,domain)
@@ -283,7 +283,7 @@ lookupInTable(op,sig,dollar,[domain,table]) ==
lookupInAddChain(op,sig,domain,dollar) or 'failed
lookupDisplay(op,sig,domain,'" !! found in NEW table!!")
slot
- success ~= 'failed and success => success
+ success isnt 'failed and success => success
subsumptionSig and (u:= SPADCALL(op,subsumptionSig,dollar,domain.1)) => u
someMatch => lookupInAddChain(op,sig,domain,dollar)
nil