RosettaCodeData/Task/Stack-traces/OCaml/stack-traces-1.ml
2024-10-16 18:07:41 -07:00

8 lines
151 B
OCaml

let div a b = a / b
let () =
try let _ = div 3 0 in ()
with e ->
prerr_endline(Printexc.to_string e);
Printexc.print_backtrace stderr;
;;