From c5387cdcdb0c4d0fa8f83df50693511f7c50c953 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 9 Nov 2009 00:54:15 -0600
Subject: [PATCH] lists: nothing was using the traverse combinator and it had a
 stack effect error. nuked

---
 basis/lists/lists-docs.factor | 7 -------
 basis/lists/lists.factor      | 6 ------
 2 files changed, 13 deletions(-)

diff --git a/basis/lists/lists-docs.factor b/basis/lists/lists-docs.factor
index 7fba57a4bb..53fde94687 100644
--- a/basis/lists/lists-docs.factor
+++ b/basis/lists/lists-docs.factor
@@ -44,7 +44,6 @@ ARTICLE: { "lists" "combinators" } "Combinators for lists"
     foldl
     foldr
     lmap>array
-    traverse
 } ;
 
 ARTICLE: { "lists" "manipulation" } "Manipulating lists"
@@ -151,12 +150,6 @@ HELP: list>array
 { $values { "list" list } { "array" array } }
 { $description "Convert a list into an array." } ;
 
-HELP: traverse    
-{ $values { "list"  list } { "pred" { $quotation "( list/elt -- ? )" } }
-          { "quot" { $quotation "( list/elt -- result)" } }  { "result" "a new cons object" } }
-{ $description "Recursively traverses the list object, replacing any elements (which can themselves be sublists) that pred" 
- " returns true for with the result of applying quot to." } ;
-
 HELP: list
 { $class-description "The class of lists. All lists are expected to conform to " { $link { "lists" "protocol" } } "." } ;
 
diff --git a/basis/lists/lists.factor b/basis/lists/lists.factor
index ddf1ab9109..f3475f960b 100644
--- a/basis/lists/lists.factor
+++ b/basis/lists/lists.factor
@@ -93,11 +93,5 @@ PRIVATE>
 : list>array ( list -- array )  
     [ ] lmap>array ;
 
-:: traverse ( list pred quot: ( list/elt -- result ) -- result )
-    list [| elt |
-        elt dup pred call [ quot call ] when
-        dup list? [ pred quot traverse ] when
-    ] lmap ; inline recursive
-
 INSTANCE: cons list
 INSTANCE: +nil+ list