diff options
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 18e08c65..b01fbcf5 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -418,7 +418,7 @@ centerString(text,width,fillchar) == for i in 1..(f.0) repeat fill1 := STRCONC(fillchar,fill1) fill2:= fill1 - if f.1 ^= 0 then fill1 := STRCONC(fillchar,fill1) + if f.1 ~= 0 then fill1 := STRCONC(fillchar,fill1) [fill1,text,fill2] stringPrefix?(pref,str) == @@ -450,7 +450,7 @@ dropLeadingBlanks str == nb := NIL i := 0 while (i < l) and not nb repeat - if SCHAR(str,i) ^= char " " then nb := i + if SCHAR(str,i) ~= char " " then nb := i else i := i + 1 nb = 0 => str nb => SUBSTRING(str,nb,NIL) |