steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sequences.deep: find drop >boolean is any?

db4
John Benediktsson 2011-10-16 13:15:05 -07:00
parent c8732657b7
commit fb9612ef73
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/sequences/deep/deep.factor
View File

@ -27,7 +27,7 @@ M: object branch? drop f ;
: (deep-find) ( ... obj quot: ( ... elt -- ... ? ) -- ... elt ? ) : (deep-find) ( ... obj quot: ( ... elt -- ... ? ) -- ... elt ? )
[ call ] 2keep rot [ drop t ] [ [ call ] 2keep rot [ drop t ] [
over branch? [ over branch? [
[ f ] 2dip '[ nip _ (deep-find) ] find drop >boolean [ f ] 2dip '[ nip _ (deep-find) ] any?
] [ 2drop f f ] if ] [ 2drop f f ] if
] if ; inline recursive ] if ; inline recursive