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/br-search.boot | |
parent | a6c8f543276feb112a408d9347b56addd558bd6e (diff) | |
download | open-axiom-c758c27852f049e021da8855a290dd876e3b7050.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r-- | src/interp/br-search.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index 68719adf..6056dd7a 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -283,8 +283,8 @@ mkGrepPattern1(x,:options) == --called by mkGrepPattern (and grepConstructName?) n := SIZE t if startpos < 0 or startpos > n then error "index out of range" k:= startpos - for i in startpos .. n-1 while c ~= ELT(t,i) - or i > startpos and ELT(t,i-1) = '__ repeat (k := k+1) + for i in startpos .. n-1 while c ~= t.i + or i > startpos and t.(i-1) = '__ repeat (k := k+1) k addOptions s == --add front anchor --options a o c d p x denote standard items |