Thanks a lot! (I don’t even dare to tell you how much time I spent trying to implement this).
Is it possible to also exit
the program after printing the message?
This makes it exit, but doesn’t print anything:
let fail fmt = Printf.eprintf (fmt ^^ "\n"); exit 1
let () =
fail "giving up after %d errors" 123
(I’m aware of exit
preventing the partial function application here, but don’t know how fix it).