sequences.deep bug fix

2007-12-27 21:03:12 -05:00 · 2007-12-27 21:03:12 -05:00 · c936895160
parent f536b4c057
commit c936895160
1 changed files with 4 additions and 5 deletions
--- 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?