--- Coro/Event/Event.pm	2001/10/09 00:50:32	1.7
+++ Coro/Event/Event.pm	2001/10/28 17:00:09	1.8
@@ -18,7 +18,7 @@
     }
  }
 
- &loop;
+ loop;
 
 =head1 DESCRIPTION
 
@@ -45,7 +45,7 @@
 use Carp;
 
 use Coro;
-use Event qw(unloop); # we are re-exporting this, cooool!
+use Event qw(loop unloop); # we are re-exporting this, cooool!
 
 use base 'Exporter';
 
@@ -110,7 +110,7 @@
    *{"do_$flavour"} = sub {
       unshift @_, Coro::Event::;
       my $e = (&$coronew)->next;
-      $e->cancel; # $e = $e->w
+      $e->cancel; # $e = $e->w->cancel ($e == $e->w!)
       $e;
    };
 }
@@ -158,11 +158,13 @@
 
 =cut
 
-sub loop(;$) {
-   local $Coro::idle = $Coro::current;
-   Coro::schedule; # become idle task, which is implicitly ready
-   &Event::loop;
-}
+# no longer do something special - it's done internally now
+
+#sub loop(;$) {
+#   #local $Coro::idle = $Coro::current;
+#   #Coro::schedule; # become idle task, which is implicitly ready
+#   &Event::loop;
+#}
 
 =item unloop([$result])