Remove indirection

malc committed 6 years ago

Commit 89f5bd81 parent 087a6941 file · +1 −1Browse files

Unified · Split

@@ -33,7 +33,7 @@ let exntos = function · 32 unmodified lines
33	\| exn -> Printexc.to_string exn	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	module IntSet = Set.Make (struct type t = int let compare = (-) end);;	38	module IntSet = Set.Make (struct type t = int let compare = (-) end);;
39		39