add deep-all?
parent
9cf3ecf04d
commit
3f151e1a65
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue