diff options
Diffstat (limited to 'src/boot/scanner.boot')
-rw-r--r-- | src/boot/scanner.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/scanner.boot b/src/boot/scanner.boot index 5e939d99..8872c9df 100644 --- a/src/boot/scanner.boot +++ b/src/boot/scanner.boot @@ -389,7 +389,7 @@ shoeW(b)== $n:=$n+1 l:=$sz endid:=shoeIdEnd($ln,$n) - if endid=l or QENUM($ln,endid)^=shoeESCAPE + if endid=l or QENUM($ln,endid)~=shoeESCAPE then $n:=endid [b,SUBSTRING($ln,n1,endid-n1)] @@ -421,7 +421,7 @@ shoeInteger1(zro) == n:=$n l:= $sz while $n<l and shoeDigit($ln.$n) repeat $n:=$n+1 - if $n=l or QENUM($ln,$n)^=shoeESCAPE + if $n=l or QENUM($ln,$n)~=shoeESCAPE then if n=$n and zro then '"0" else SUBSTRING($ln,n,$n-n) |