diff options
Diffstat (limited to 'src/interp/intfile.boot')
-rw-r--r-- | src/interp/intfile.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/intfile.boot b/src/interp/intfile.boot index f87b3e5d..34818377 100644 --- a/src/interp/intfile.boot +++ b/src/interp/intfile.boot @@ -45,7 +45,7 @@ shoeIntern (s)== StreamNull s => nil f:=first s # f < 8 => shoeIntern rest s - f.0=char " " =>shoeIntern rest s + stringChar(f,0) = char " " =>shoeIntern rest s a:=makeSymbol subString(f,0,8) [b,c]:= shoeStrings rest s GET(a,"MSGS") := b @@ -54,7 +54,7 @@ shoeIntern (s)== shoeStrings (stream)== StreamNull stream => ['"",stream] a:=first stream - if a.0 ~= char " " + if stringChar(a,0) ~= char " " then ['"",stream] else [h,t]:=shoeStrings(rest stream) |