rethrow-in-channel.p6

sub find-simple (:$no-thread) {
    my $channel = Channel.new;

    my &start = -> ( &c ) { c } if $no-thread;

    my $promise = start { 
        for 1..10 {
            CATCH { default { .rethrow } }

            $channel.send(.Int);
            die "bad";
        }
        $channel.close;
    }

    return $channel.list;
    # return $channel.list but role :: { method channel { $channel } };
}

say find-simple();
# say find-simple(:no-thread); # this hangs too