diff options
Diffstat (limited to 'src/interp/match.boot')
-rw-r--r-- | src/interp/match.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/match.boot b/src/interp/match.boot index 6abf163a..8ca52e2f 100644 --- a/src/interp/match.boot +++ b/src/interp/match.boot @@ -67,7 +67,7 @@ charPosition(c,t,startpos) == rightCharPosition(c,t,startpos) == --startpos often equals maxIndex t (rightmost) k := startpos - for i in startpos..0 by -1 while c ~= ELT(t,i) repeat (k := k - 1) + for i in startpos..0 by -1 while c ~= stringChar(t,i) repeat (k := k - 1) k stringPosition(s,t,startpos) == |