From 94da542acda8a6d615835875962c4fdafeddff83 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 29 Dec 2016 12:03:16 -0800
Subject: [PATCH] sequences.extras: removing a couple words that aren't used.

---
 extra/sequences/extras/extras-docs.factor |  7 -------
 extra/sequences/extras/extras.factor      | 17 -----------------
 2 files changed, 24 deletions(-)

diff --git a/extra/sequences/extras/extras-docs.factor b/extra/sequences/extras/extras-docs.factor
index 57a534b05a..9f1b4979ca 100644
--- a/extra/sequences/extras/extras-docs.factor
+++ b/extra/sequences/extras/extras-docs.factor
@@ -69,13 +69,6 @@ HELP: compact
     "Collapse multiple spaces in a string down to a single space"
     { $example "USING: kernel prettyprint sequences.extras ;" "\"   Hello,    crazy    world   \" [ CHAR: \\s = ] \" \" compact ." "\"Hello, crazy world\"" } } ;
 
-HELP: combos
-{ $values
-    { "list1" sequence }
-    { "list2" sequence }
-    { "result" sequence } }
-{ $description "Returns all combinations of the first sequence with the second sequence.  The result is not uniquified: if the sequences contain duplicate elements, then the same pair may appear multiple times in the result sequence." } ;
-
 HELP: <evens>
 { $values { "seq" sequence } { "evens" evens } }
 { $description "Create a virtual sequence whose elements consist of the even-indexed elements from the original sequence." }
diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index aa901bd808..0a80c74c2f 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -4,23 +4,6 @@ sequences sequences.deep sequences.private sorting splitting
 vectors ;
 IN: sequences.extras
 
-: reduce1 ( seq quot -- result ) [ unclip ] dip reduce ; inline
-
-:: reduce-r ( seq identity quot: ( obj1 obj2 -- obj ) -- result )
-    seq [ identity ] [
-        unclip [ identity quot reduce-r ] [ quot call ] bi*
-    ] if-empty ; inline recursive
-
-! Quot must have static stack effect, unlike "reduce"
-:: reduce* ( seq identity quot: ( prev elt -- next ) -- result )
-    seq [ identity ] [
-        unclip identity swap quot call( prev elt -- next )
-        quot reduce*
-    ] if-empty ; inline recursive
-
-:: combos ( list1 list2 -- result )
-    list2 [ [ 2array ] curry list1 swap map ] map concat ;
-
 : find-all ( ... seq quot: ( ... elt -- ... ? ) -- ... elts )
     [ <enum> ] dip '[ nip @ ] assoc-filter ; inline
 
-- 
2.34.1