--- Coro/Coro.pm	2001/07/03 04:02:31	1.3
+++ Coro/Coro.pm	2001/07/10 01:43:21	1.5
@@ -37,7 +37,7 @@
 package Coro;
 
 BEGIN {
-   $VERSION = 0.01;
+   $VERSION = 0.03;
 
    require XSLoader;
    XSLoader::load Coro, $VERSION;
@@ -92,7 +92,7 @@
             ($error_msg, $error_coro) = ($@, $current);
             $error->resume;
          }
-      } while ();
+      } while (1);
    }, $class;
 }
 
@@ -104,6 +104,9 @@
 
 my $prev;
 
+# I call the _transfer function from a pelr function
+# because that way perl saves all important things on
+# the stack.
 sub resume {
    $prev = $current; $current = $_[0];
    _transfer($prev, $current);