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

View File

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