Avoid mutex change of ownership

ocaml · Oct 21, 2020 · bc8615c · bc8615c
1 parent e06a250
commit bc8615c
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lsp/src/scheduler.ml b/lsp/src/scheduler.ml
@@ -225,7 +225,7 @@ let time_loop t =
       add_events t !to_run;
       loop ()
   in
-  loop ()
+  with_mutex t.time_mutex ~f:loop
 
 let wake_loop t =
   let rec loop () =
@@ -253,7 +253,6 @@ let create () =
     ; detached = Queue.create ()
     }
   in
-  Mutex.lock t.time_mutex;
   t.time <- Thread.create time_loop t;
   t.waker <- Thread.create wake_loop t;
   t