add deep-all?

2008-02-26 02:07:11 -06:00 · 2008-02-26 02:07:11 -06:00 · 3f151e1a65
parent 9cf3ecf04d
commit 3f151e1a65
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/deep/deep.factor
+++ b/extra/sequences/deep/deep.factor
@ -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>