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

add deep-all?

db4
Doug Coleman 2008-02-26 02:07:11 -06:00
parent 9cf3ecf04d
commit 3f151e1a65
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/sequences/deep/deep.factor
View File

@ -34,6 +34,9 @@ IN: sequences.deep
: deep-contains? ( obj quot -- ? ) deep-find* nip ; inline : deep-contains? ( obj quot -- ? ) deep-find* nip ; inline
: deep-all? ( obj quot -- ? )
[ not ] compose deep-contains? not ; inline
: deep-change-each ( obj quot -- ) : deep-change-each ( obj quot -- )
over branch? [ [ over branch? [ [
[ call ] keep over >r deep-change-each r> [ call ] keep over >r deep-change-each r>