Unified · Split
| @@ -33,7 +33,7 @@ let exntos = function · 32 unmodified lines | ||
| 33 | 33 | | exn -> Printexc.to_string exn |
| 34 | 34 | ;; |
| 35 | 35 | |
| 36 | −let error fmt = Printf.kprintf (fun s -> failwith s) fmt;; | |
| 36 | +let error fmt = Printf.kprintf failwith fmt;; | |
| 37 | 37 | |
| 38 | 38 | module IntSet = Set.Make (struct type t = int let compare = (-) end);; |
| 39 | 39 | |