From 67b82a2509f7d7193aae9298b7924d98145eca0b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 10 May 2010 00:45:31 -0400
Subject: [PATCH] sequences: remove unused 2reverse-each word

---
 core/sequences/sequences-docs.factor | 9 ---------
 core/sequences/sequences.factor      | 3 ---
 2 files changed, 12 deletions(-)

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index e6c656f2da..55938f5888 100644
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -1200,15 +1200,6 @@ HELP: 2selector
      { "selector" quotation } { "accum1" vector } { "accum2" vector } }
 { $description "Creates two new vectors to accumultate values based on a predicate. The first vector accumulates values for which the predicate yields true; the second for false." } ;
 
-HELP: 2reverse-each
-{ $values
-     { "seq1" sequence } { "seq2" sequence } { "quot" quotation } }
-{ $description "Reverse the sequences using the " { $link <reversed> } " word and calls " { $link 2each } " on the reversed sequences." }
-{ $examples { $example "USING: sequences math prettyprint ;"
-    "{ 10 20 30 } { 1 2 3 } [ + . ] 2reverse-each"
-    "33\n22\n11"
-} } ;
-
 HELP: 2unclip-slice
 { $values
      { "seq1" sequence } { "seq2" sequence }
diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 2155f1439f..55398ff02b 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -444,9 +444,6 @@ PRIVATE>
 : 2each ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) -- ... )
     (2each) each-integer ; inline
 
-: 2reverse-each ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) -- ... )
-    [ [ <reversed> ] bi@ ] dip 2each ; inline
-
 : 2reduce ( ... seq1 seq2 identity quot: ( ... prev elt1 elt2 -- ... next ) -- ... result )
     [ -rot ] dip 2each ; inline