Prevent error here.

savonet · Oct 31, 2024 · 643ce29 · 643ce29
1 parent 06103d4
commit 643ce29
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/clock.ml b/src/core/clock.ml
@@ -212,7 +212,7 @@ let _sync ?(pending = false) x =
     | `Started { sync } -> (sync :> sync_mode)
 
 let sync c = _sync (Unifier.deref c)
-let cleanup_source s = s#force_sleep
+let cleanup_source s = try s#force_sleep with _ -> ()
 let clocks = Queue.create ()
 
 let rec _cleanup ~clock { outputs; passive_sources; active_sources } =