From fb9612ef73d90211c1c98080059f3dcfe5387f97 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 16 Oct 2011 13:15:05 -0700
Subject: [PATCH] sequences.deep: find drop >boolean is any?

---
 basis/sequences/deep/deep.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/sequences/deep/deep.factor b/basis/sequences/deep/deep.factor
index 6238962b6c..bab9f17af5 100644
--- a/basis/sequences/deep/deep.factor
+++ b/basis/sequences/deep/deep.factor
@@ -27,7 +27,7 @@ M: object branch? drop f ;
 : (deep-find) ( ... obj quot: ( ... elt -- ... ? ) -- ... elt ? )
     [ call ] 2keep rot [ drop t ] [
         over branch? [
-            [ f ] 2dip '[ nip _ (deep-find) ] find drop >boolean
+            [ f ] 2dip '[ nip _ (deep-find) ] any?
         ] [ 2drop f f ] if  
     ] if ; inline recursive