sequences: remove unused word

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index b4163f7887a63c588f3d54f40d640ea60b2ead51..ba053465e3d14665bc0a8ba80d52b2d2b7ea12ba 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -669,9 +669,6 @@ PRIVATE>
 : push-when ( ..a elt quot: ( ..a elt -- ..b ? ) accum -- ..b )
     [ keep ] dip rot [ push ] [ 2drop ] if ; inline
 
-: keep-push-when ( ..a elt quot: ( ..a elt -- ..b ? ) accum -- ..b )
-    [ keep ] 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