From 7ae7984f3c74b18c8ec1afe0f38766a674f2b156 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sat, 9 Jan 2021 23:35:34 -0600
Subject: [PATCH] Allow yielding from root fiber to ev loop.

---
 src/core/ev.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/ev.c b/src/core/ev.c
index fbcaa148..7aabb849 100644
--- a/src/core/ev.c
+++ b/src/core/ev.c
@@ -520,7 +520,7 @@ static void run_one(JanetFiber *fiber, Janet value, JanetSignal sigin) {
     fiber->flags &= ~JANET_FIBER_FLAG_SCHEDULED;
     Janet res;
     JanetSignal sig = janet_continue_signal(fiber, value, &res, sigin);
-    if (sig != JANET_SIGNAL_EVENT) {
+    if (sig != JANET_SIGNAL_EVENT && sig != JANET_SIGNAL_YIELD) {
         if (fiber->done_channel) {
             JanetChannel *chan = (JanetChannel *)(fiber->done_channel);
             janet_channel_push(chan, janet_wrap_fiber(fiber), 2);