diff options
Diffstat (limited to 'src/boot/scanner.boot')
| -rw-r--r-- | src/boot/scanner.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/scanner.boot b/src/boot/scanner.boot index 841d26db..7a84cb96 100644 --- a/src/boot/scanner.boot +++ b/src/boot/scanner.boot @@ -90,7 +90,7 @@ shoeNextLine(s)== $n = nil => true stringChar($ln,$n) = shoeTAB => a := makeString(7-REM($n,8),char " ") - $ln.$n := char " " + stringChar($ln,$n) := char " " $ln := strconc(a,$ln) s1:=[[$ln,:rest $f],:$r] shoeNextLine s1 @@ -443,10 +443,10 @@ shoeOrdToNum x== digit? x shoeKeyWord st == - GETHASH(st,shoeKeyTable) + tableValue(shoeKeyTable,st) shoeKeyWordP st == - GETHASH(st,shoeKeyTable) ~= nil + tableValue(shoeKeyTable,st) ~= nil shoeMatch(l,i) == shoeSubStringMatch(l,shoeDict,i) |