simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2026-05-05 08:54:26 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

format

Browse source
This commit is contained in:
Simon Cruanes 2026-04-07 21:00:39 -04:00
parent 2e7a8f3482
commit 266b911bb3
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/eio/linol_eio.ml
View file

@ -54,8 +54,7 @@ end
(** Spawn function. *) (** Spawn function. *)
let spawn ~sw f = let spawn ~sw f =
Eio.Fiber.fork ~sw (fun () -> Eio.Fiber.fork ~sw (fun () ->
try try f ()
f ()
with exn -> with exn ->
Printf.eprintf "uncaught exception in `spawn`:\n%s\n%!" Printf.eprintf "uncaught exception in `spawn`:\n%s\n%!"
(Printexc.to_string exn); (Printexc.to_string exn);