aboutsummaryrefslogtreecommitdiff
path: root/src/interp/int-top.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r--src/interp/int-top.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot
index 949b3241..9554b7b5 100644
--- a/src/interp/int-top.boot
+++ b/src/interp/int-top.boot
@@ -235,7 +235,7 @@ intloopSpadProcess(stepNo,lines,ptree,interactive?)==
ncConversationPhase(function phIntReportMsgs,[cc, interactive?])
ncConversationPhase(function phInterpret, [cc])
- #ncEltQ(cc, 'messages) ^= 0 => ncError()
+ #ncEltQ(cc, 'messages) ~= 0 => ncError()
intSetNeedToSignalSessionManager()
$prevCarrier := $currentCarrier
@@ -272,7 +272,7 @@ mkLineList lines ==
nonBlank str ==
value := false
for i in 0..MAXINDEX str repeat
- str.i ^= char " " =>
+ str.i ~= char " " =>
value := true
return value
value