aboutsummaryrefslogtreecommitdiff
path: root/src/interp/pspad1.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/pspad1.boot')
-rw-r--r--src/interp/pspad1.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot
index 775236e0..15b5716d 100644
--- a/src/interp/pspad1.boot
+++ b/src/interp/pspad1.boot
@@ -551,7 +551,7 @@ pspadOpBindingPower(op,LedOrNud,leftOrRight) ==
bp:=
leftOrRight="left" => leftBindingPowerOf(op,LedOrNud)
rightBindingPowerOf(op,LedOrNud)
- bp^=exception => bp
+ bp ~= exception => bp
1000
formatOpBindingPower(op,key,leftOrRight) ==
@@ -572,7 +572,7 @@ formatOpBindingPower(op,key,leftOrRight) ==
formatInfixOp(op,:options) ==
qualification := IFCAR options
qualification or
- (op ^= '_$) and ^MEMQ(op,$spadTightList) => format " " and formatQual(op,qualification) and format " "
+ (op ~= '_$) and ^MEMQ(op,$spadTightList) => format " " and formatQual(op,qualification) and format " "
format op
--======================================================================