--- Coro/eg/attributes	2001/07/15 02:35:52	1.2
+++ Coro/eg/attributes	2001/07/23 02:14:19	1.3
@@ -7,7 +7,7 @@
 sub p1 : Coro {
    for (0..9) {
       print "p1: $_\n";
-      yield;
+      cede;
    }
    $p--;
 }
@@ -15,13 +15,13 @@
 sub p2 : Coro {
    for (10..23) {
       print "p2: $_\n";
-      yield;
+      cede;
    }
    $p--;
 }
 
 eval {
-   yield while $p;
+   cede while $p;
 };