Fix non-blocking react { await blah() }

The `react` (and also `await $some-supply`) constructs will tap the `Supply` upon the call to `subscribe-awaiter`. This causes some amount of synchronous execution to take place, and that code may then itself `await`. This broke because the continuation tag was removed by the react/await prior to this. Protect the continuation tag, so it survives.
rakudo · Sep 19, 2017 · 29863a0 · 29863a0
1 parent f53d396
commit 29863a0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/ThreadPoolScheduler.pm b/src/core/ThreadPoolScheduler.pm
@@ -48,7 +48,7 @@ my class ThreadPoolScheduler does Scheduler {
             else {
                 my $success;
                 my $result;
-                nqp::continuationcontrol(0, THREAD_POOL_PROMPT, -> Mu \c {
+                nqp::continuationcontrol(1, THREAD_POOL_PROMPT, -> Mu \c {
                     $handle.subscribe-awaiter(-> \success, \result {
                         $success := success;
                         $result := result;
@@ -150,7 +150,7 @@ my class ThreadPoolScheduler does Scheduler {
                         $l.unlock();
                     }
                 }
-                nqp::continuationcontrol(0, THREAD_POOL_PROMPT, -> Mu \c {
+                nqp::continuationcontrol(1, THREAD_POOL_PROMPT, -> Mu \c {
                     $continuation := c;
                     $l.unlock;
                 });