--- Coro/Coro.pm 2001/08/11 00:37:31 1.29 +++ Coro/Coro.pm 2001/08/11 19:59:19 1.30 @@ -120,9 +120,6 @@ } }; -# we really need priorities... -my @ready; # the ready queue. hehe, rather broken ;) - # static methods. not really. =head2 STATIC METHODS @@ -162,14 +159,6 @@ =cut -my $prev; - -sub schedule { - # should be done using priorities :( - ($prev, $current) = ($current, shift @ready || $idle); - Coro::State::transfer($prev, $current); -} - =item cede "Cede" to other processes. This function puts the current process into the @@ -178,11 +167,6 @@ =cut -sub cede { - $current->ready; - &schedule; -} - =item terminate Terminates the current process. @@ -235,10 +219,6 @@ =cut -sub ready { - push @ready, $_[0]; -} - =item $process->cancel Like C, but terminates the specified process instead.