sequences: move (2selector-as)

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 7761b49bb7115459ec32d3e9a7d544c33a09f9cb..a2bf15cbe6a7e0b32705d7ca60d142861daac2a6 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -635,9 +635,6 @@ PRIVATE>
 : push-when ( ..a elt quot: ( ..a elt -- ..b ? ) accum -- ..b )
     [ keep ] dip rot [ push ] [ 2drop ] if ; inline
 
-: 2push-when ( ..a elt1 elt2 quot: ( ..a elt1 elt2 -- ..b ? ) accum -- ..b )
-    [ keepd ] dip rot [ push ] [ 2drop ] if ; inline
-
 : call-push-when ( ..a elt quot: ( ..a elt -- ..b elt' ? ) accum -- ..b )
     [ call ] dip swap [ push ] [ 2drop ] if ; inline
 
@@ -646,9 +643,6 @@ PRIVATE>
 : (selector-as) ( quot length exemplar -- selector accum )
     new-resizable [ [ push-when ] 2curry ] keep ; inline
 
-: (2selector-as) ( quot length exemplar -- selector accum )
-    new-resizable [ [ 2push-when ] 2curry ] keep ; inline
-
 PRIVATE>
 
 : selector-as ( quot exemplar -- selector accum )