lib/prelude.ml

   1
   2 exception At of ((int * int) * exn)
   3
   4 let ($) f g = function x -> f (g x)
   5
   6 external identity : 'a -> 'a = "%identity"
   7 let flip f x y = f y x
   8
   9 let tuck l x = l := x :: !l
  10 let option_list = function Some x -> [x] | None -> []
  11
  12 let fail fmt = Printf.ksprintf failwith fmt
  13 let failed ~at fmt = Printf.ksprintf (fun s -> raise (At (at, Failure s))) fmt
  14 let printfn fmt = Printf.ksprintf print_endline fmt
  15 let eprintfn fmt = Printf.ksprintf prerr_endline fmt