diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
| commit | 4c2ef607671da29d8ee0aefd393227af72936b44 (patch) | |
| tree | 0c515e0003e4c164390e66d3aa39bfb342520601 /src/interp/match.boot | |
| parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
| download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz | |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/match.boot')
| -rw-r--r-- | src/interp/match.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/match.boot b/src/interp/match.boot index 421f86ad..37bc2a61 100644 --- a/src/interp/match.boot +++ b/src/interp/match.boot @@ -109,13 +109,13 @@ patternCheck pattern == main where -- pp pattern pattern mknew(old,i,r,new) == - new := STRCONC(new,old.(i + 1)) --add underscored character to string - null r => STRCONC(new,subWild(SUBSTRING(old,i + 2,nil),0)) + new := strconc(new,old.(i + 1)) --add underscored character to string + null r => strconc(new,subWild(SUBSTRING(old,i + 2,nil),0)) mknew(old,first r,rest r, - STRCONC(new,subWild(SUBSTRING(old,i + 2,(first r) - i - 1),i + 1))) + strconc(new,subWild(SUBSTRING(old,i + 2,(first r) - i - 1),i + 1))) subWild(s,i) == (k := charPosition($oldWild,s,i)) < #s => - STRCONC(SUBSTRING(s,i,k - i),$wildCard,subWild(s,k + 1)) + strconc(SUBSTRING(s,i,k - i),$wildCard,subWild(s,k + 1)) SUBSTRING(s,i,nil) pos(c,s) == i := 0 |