Fix Saturn.Queue function

Now needs pop_opt
ocaml-multicore · Nov 29, 2023 · 7025ff9 · 7025ff9
1 parent abaa4a3
commit 7025ff9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/multi_channel.ml b/lib/multi_channel.ml
@@ -147,7 +147,7 @@ let recv_poll_with_dls mchan dls =
     Ws_deque.pop (Array.unsafe_get mchan.channels dls.id)
   with
     | Exit ->
-      match Foreign_queue.pop mchan.foreign_queue with
+      match Foreign_queue.pop_opt mchan.foreign_queue with
       | None -> recv_poll_loop mchan dls 0
       | Some v -> v
   [@@inline]