jon.recoil.org

Source file printf.ml

1
2
3
4
5
6
7
8
9
10
11
12
open! Import0
include Stdlib.Printf

(** failwith, invalid_arg, and exit accepting printf's format. *)

let[@inline never] [@zero_alloc assume never_returns_normally] failwithf fmt =
  ksprintf (fun s () -> failwith s) fmt
;;

let[@inline never] [@zero_alloc assume never_returns_normally] invalid_argf fmt =
  ksprintf (fun s () -> invalid_arg s) fmt
;;