fix coroutine code for abscence of tree-each

diff --git a/contrib/coroutines.factor b/contrib/coroutines.factor
index 8facf45139b9802c053c17718a7af5c65039ad75..2471c4ebeda4a4557df198dd3c43153987fe94e6 100644 (file)
--- a/contrib/coroutines.factor
+++ b/contrib/coroutines.factor
@@ -56,8 +56,8 @@ TUPLE: coroutine resumecc exitcc ;
 USE: prettyprint
 USE: sequences
 
-: test1 ( -- co )
-  [ swap [ over coyield 2drop ] tree-each f swap coyield ] cocreate ; 
+: test1 ( list -- co )
+  [ swap [ over coyield 2drop ] each f swap coyield ] cocreate ; 
   
 : test2 ( -- co )
   [ 1 over coyield drop 2 over coyield drop 3 over coyield ] cocreate ;