[main] Catch system errors.

src/main.ml

@@ -450,6 +450,7 @@ let () =
     match exn with
     | Invalid_argument msg -> Fmt.pf fmt "Invalid argument: %s" msg
     | Failure msg -> Fmt.pf fmt "Failure: %s" msg
+    | Sys_error msg -> Fmt.pf fmt "%s" msg
     | _ -> raise exn)
 
 let () =