diff options
Diffstat (limited to 'src/interp/msgdb.boot')
-rw-r--r-- | src/interp/msgdb.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 75c0ba89..b13ef6af 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -100,15 +100,15 @@ string2Words l == wordFrom(l,i) == maxIndex := MAXINDEX l - k := or/[j for j in i..maxIndex | l.j ^= char ('_ ) ] or return nil + k := or/[j for j in i..maxIndex | l.j ~= char ('_ ) ] or return nil buf := '"" - while k < maxIndex and (c := l.k) ^= char ('_ ) repeat + while k < maxIndex and (c := l.k) ~= char ('_ ) repeat ch := c = char '__ => l.(k := 1+k) --this may exceed bounds c buf := STRCONC(buf,ch) k := k + 1 - if k = maxIndex and (c := l.k) ^= char ('_ ) then buf := STRCONC(buf,c) + if k = maxIndex and (c := l.k) ~= char ('_ ) then buf := STRCONC(buf,c) [buf,k+1] getKeyedMsg key == fetchKeyedMsg(key,false) @@ -142,7 +142,7 @@ segmentedMsgPreprocess x == removeAttributes msg == --takes a segmented message and returns it with the attributes --separted. - first msg ^= '"%atbeg" => + first msg ~= '"%atbeg" => [msg,NIL] attList := [] until item = '"%atend" repeat @@ -585,7 +585,7 @@ sayNewLine(out == $OutputStream, margin == nil) == -- Note: this function should *always* be used by sayBrightly and -- friends rather than TERPRI -- see bindSayBrightly TERPRI(out) - if margin ^= nil then BLANKS(margin,out) + if margin ~= nil then BLANKS(margin,out) nil sayString(x,out == $OutputStream) == @@ -871,7 +871,7 @@ sayAsManyPerLineAsPossible l == [c,:l] := l str := STRCONC(str,c,fillerSpaces(w - #c,'" ")) REMAINDER(i+1,p) = 0 => (sayMSG str ; str := '"" ) - if str ^= '"" then sayMSG str + if str ~= '"" then sayMSG str NIL say2PerLine l == say2PerLineWidth(l, QUOTIENT($LINELENGTH,2)) @@ -897,7 +897,7 @@ sayLongOperation x == splitListOn(x,key) == member(key,x) => - while first x ^= key repeat + while first x ~= key repeat y:= [first x,:y] x:= rest x [nreverse y,x] |