From 4c2ef607671da29d8ee0aefd393227af72936b44 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 9 May 2010 18:37:10 +0000 Subject: Cleanup STRCONC uses --- src/interp/match.boot | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/interp/match.boot') 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 -- cgit v1.2.3