X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fxmode%2Frules%2Frules.factor;h=d68fd18af1be6ea0a2302b5c8d06c9c90d098454;hp=27171b794b6dd033bacac068a5433fff6e0e7848;hb=b0badd157101d4b6b184f06726b456a00171b801;hpb=c0f0342d9ae9197401af909d86204c2d1f89559a

diff --git a/basis/xmode/rules/rules.factor b/basis/xmode/rules/rules.factor
index 27171b794b..d68fd18af1 100644
--- a/basis/xmode/rules/rules.factor
+++ b/basis/xmode/rules/rules.factor
@@ -41,14 +41,8 @@ MEMO: standard-rule-set ( id -- ruleset )
     [ [ { f } ] when-empty ] 2dip
     [ swapd push-at ] 2curry each ;
 
-: ?push-all ( seq1 seq2 -- seq1+seq2 )
-    [
-        over [ [ V{ } like ] dip append! ] [ nip ] if
-    ] when* ;
-
 : rule-set-no-word-sep* ( ruleset -- str )
-    [ no-word-sep>> ]
-    [ keywords>> ] bi
+    [ no-word-sep>> ] [ keywords>> ] bi
     dup [ keyword-map-no-word-sep* ] when
     "_" 3append ;