diff options
Diffstat (limited to 'src/boot/scanner.boot')
| -rw-r--r-- | src/boot/scanner.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/scanner.boot b/src/boot/scanner.boot index 748fbe0b..f148cd84 100644 --- a/src/boot/scanner.boot +++ b/src/boot/scanner.boot @@ -458,7 +458,7 @@ shoeError()== shoeLeafError ($ln.n) shoeOrdToNum x== - DIGIT_-CHAR_-P x + digit? x shoeKeyWord st == GETHASH(st,shoeKeyTable) @@ -472,12 +472,12 @@ shoeMatch(l,i) == shoeSubStringMatch (l,d,i)== h := QENUM(l, i) u := d.h - ll := SIZE l + ll := #l done := false s1 := '"" - for j in 0.. SIZE u - 1 while not done repeat + for j in 0.. #u - 1 while not done repeat s := u.j - ls := SIZE s + ls := #s done := ls+i > ll => false eql := true |