1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(** This module extends {{!Base.Printf}[Base.Printf]}. *)
open! Import
include Base.Printf (** @open *)
let eprintf = Stdio.Out_channel.eprintf
let fprintf = Stdio.Out_channel.fprintf
let kfprintf = Stdio.Out_channel.kfprintf
let printf = Stdio.Out_channel.printf
(** print to stderr; exit 1 *)
let exitf fmt =
ksprintf
(fun s () ->
eprintf "%s\n%!" s;
exit 1)
fmt
;;