diff options
Diffstat (limited to 'src/boot/includer.boot')
| -rw-r--r-- | src/boot/includer.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot index 3f976b28..62cc6456 100644 --- a/src/boot/includer.boot +++ b/src/boot/includer.boot @@ -259,13 +259,13 @@ shoePrefix?(prefix,whole) == #prefix > #whole => false good:=true for i in 0..#prefix-1 for j in 0.. while good repeat - good:= prefix.i = whole.j + good := stringChar(prefix,i) = stringChar(whole,j) good => subString(whole,#prefix) good shoePlainLine?(s) == #s = 0 => true - s.0 ~= char ")" + stringChar(s,0) ~= char ")" shoeSay? s == shoePrefix?('")say", s) shoeEval? s == shoePrefix?('")eval", s) |