diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:09:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:09:07 +0000 |
| commit | c758c27852f049e021da8855a290dd876e3b7050 (patch) | |
| tree | 7404ceb2eea0aa1d17e1e42c115361178a7fb19f /src/interp/match.boot | |
| parent | a6c8f543276feb112a408d9347b56addd558bd6e (diff) | |
| download | open-axiom-c758c27852f049e021da8855a290dd876e3b7050.tar.gz | |
More cleanups
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 |