From c9368951606704deb541c1795e63ac2c9d38f2f0 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Thu, 27 Dec 2007 21:03:12 -0500
Subject: [PATCH] sequences.deep bug fix

---
 extra/sequences/deep/deep.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/extra/sequences/deep/deep.factor b/extra/sequences/deep/deep.factor
index 6e36878b78..c55647bbcb 100644
--- a/extra/sequences/deep/deep.factor
+++ b/extra/sequences/deep/deep.factor
@@ -5,11 +5,10 @@ IN: sequences.deep
 
 ! All traversal goes in postorder
 
-GENERIC: branch? ( object -- ? )
-M: sequence branch? drop t ;
-M: string branch? drop f ;
-M: number branch? drop f ;
-M: object branch? drop f ;
+: branch? ( object -- ? )
+    dup sequence? [
+        dup string? swap number? or not
+    ] [ drop f ] if ;
 
 : deep-each ( obj quot -- )
     [ call ] 2keep over branch?