diff options
Diffstat (limited to 'src/interp/match.boot')
| -rw-r--r-- | src/interp/match.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/match.boot b/src/interp/match.boot index 37bc2a61..23b0924c 100644 --- a/src/interp/match.boot +++ b/src/interp/match.boot @@ -47,13 +47,13 @@ substring?(part, whole, startpos) == np := SIZE part nw := SIZE whole np > nw - startpos => false - and/[CHAR_-EQUAL(ELT(part, ip), ELT(whole, iw)) + and/[CHAR_-EQUAL(part.ip, whole.iw) for ip in 0..np-1 for iw in startpos.. ] anySubstring?(part,whole,startpos) == np := SIZE part nw := SIZE whole - or/[((k := i) and "and"/[CHAR_-EQUAL(ELT(part, ip),ELT(whole, iw)) + or/[((k := i) and "and"/[CHAR_-EQUAL(part.ip,whole.iw) for ip in 0..np - 1 for iw in i..]) for i in startpos..nw - np] => k charPosition(c,t,startpos) == @@ -61,7 +61,7 @@ charPosition(c,t,startpos) == startpos < 0 or startpos > n => n k:= startpos for i in startpos .. n-1 repeat - c = ELT(t,i) => return nil + c = t.i => return nil k := k+1 k |