sequences.deep: find drop >boolean is any?

diff --git a/basis/sequences/deep/deep.factor b/basis/sequences/deep/deep.factor
index 6238962b6c9c4768be13e582a1737b8499836838..bab9f17af594ded0d8281f9293b2042428920d25 100644 (file)
--- 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