--- cvsroot/Coro/eg/bench	2001/07/17 00:24:15	1.4
+++ cvsroot/Coro/eg/bench	2001/07/17 15:42:28	1.5
@@ -14,7 +14,6 @@
 sub a {
    $n++; # do something to taint the benchmark results ;)
 }
-$|=1;
 
 $b = async {
    # do a little unrolling...
@@ -31,6 +30,8 @@
 
 $c = Coro::State::_newprocess [sub {
    while() {
+      # some unrolling here as well..
+      transfer($c, $main); transfer($c, $main);
       transfer($c, $main); transfer($c, $main);
       transfer($c, $main); transfer($c, $main);
    }
@@ -39,7 +40,8 @@
 transfer($main, $c);
 
 timethese 100000, {
-   method   => '$a->a; $a->a; $a->a; $a->a',
-   resume   => 'yield; yield',
-   transfer => 'transfer($main, $c); transfer($main, $c)',
+   method   => '$a->a; $a->a',
+   resume   => 'yield',
+   transfer => 'transfer($main, $c)',
 };
+