Suspicious locking behavior with select.

This looks like it could cause deadlocks with threaded channels
(normal channels are unaffected, locking/unlocking is a no-op).

1 files changed, 2 insertions, 0 deletions

diff --git a/src/core/ev.c b/src/core/ev.c
index b6d85376..98452e28 100644
--- a/src/core/ev.c
+++ b/src/core/ev.c
@@ -1249,6 +1249,7 @@ JANET_CORE_FN(cfun_channel_choice,
                 chan_unlock_args(argv, i);
                 return make_write_result(chan);
             }
+            janet_chan_unlock(chan);
         } else {
             /* Read */
             JanetChannel *chan = janet_getchannel(argv, i);
@@ -1264,6 +1265,7 @@ JANET_CORE_FN(cfun_channel_choice,
                 chan_unlock_args(argv, i);
                 return make_read_result(chan, item);
             }
+            janet_chan_unlock(chan);
         }
     }