From 3f151e1a652cc5d93ff7f609faeac53041b482fe Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 26 Feb 2008 02:07:11 -0600
Subject: [PATCH] add deep-all?

---
 extra/sequences/deep/deep.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/sequences/deep/deep.factor b/extra/sequences/deep/deep.factor
index c55647bbcb..27b875bd8f 100644
--- 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>