over push -> suffix!, over push-all -> append!

[factor.git] / basis / xmode / rules / rules.factor

diff --git a/basis/xmode/rules/rules.factor b/basis/xmode/rules/rules.factor
index 51f216fa44bd32e82bdf542999c885d0d77ec2e0..ffe6db3b4696f9cf32a5df17d273ab6f084293ae 100644 (file)
--- a/basis/xmode/rules/rules.factor
+++ b/basis/xmode/rules/rules.factor
@@ -43,7 +43,7 @@ MEMO: standard-rule-set ( id -- ruleset )
 
 : ?push-all ( seq1 seq2 -- seq1+seq2 )
     [
-        over [ [ V{ } like ] dip over push-all ] [ nip ] if
+        over [ [ V{ } like ] dip append! ] [ nip ] if
     ] when* ;
 
 : rule-set-no-word-sep* ( ruleset -- str )