sequences: removing 2unclip-slice.

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index 58ead11caa8ce893b64b7088599c2d27e3cebd6c..f256c965d52fc0eb714bfa568d940a1d29f66d31 100644 (file)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -1220,16 +1220,6 @@ HELP: 2selector
      { "selector" quotation } { "accum1" vector } { "accum2" vector } }
 { $description "Creates two new vectors to accumulate values based on a predicate. The first vector accumulates values for which the predicate yields true; the second for false." } ;
 
-HELP: 2unclip-slice
-{ $values
-     { "seq1" sequence } { "seq2" sequence }
-     { "rest-slice1" sequence } { "rest-slice2" sequence } { "first1" object } { "first2" object } }
-{ $description "Unclips the first element of each sequence and leaves two slice elements and the two unclipped objects on the stack." }
-{ $examples { $example "USING: sequences prettyprint kernel arrays ;"
-    "{ 1 2 } { 3 4 } 2unclip-slice 4array [ . ] each"
-    "T{ slice { from 1 } { to 2 } { seq { 1 2 } } }\nT{ slice { from 1 } { to 2 } { seq { 3 4 } } }\n1\n3"
-} } ;
-
 HELP: collector
 { $values
      { "quot" quotation }

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 9d52340abe6e381effc97c1995e4625194b6b8f6..153ef91809238af1f4da8683a759d3644518bf47 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -867,9 +867,6 @@ PRIVATE>
 : unclip-slice ( seq -- rest-slice first )
     [ rest-slice ] [ first-unsafe ] bi ; inline
 
-: 2unclip-slice ( seq1 seq2 -- rest-slice1 rest-slice2 first1 first2 )
-    [ unclip-slice ] bi@ swapd ; inline
-
 : map-reduce ( ..a seq map-quot: ( ..a x -- ..b elt ) reduce-quot: ( ..b prev elt -- ..a next ) -- ..a result )
     [ [ unclip-slice ] dip [ call ] keep ] dip
     compose reduce ; inline