This is an OCaml language extension implementing a somewhat Go-ish
[%defer expr1]; expr2
which will defer the evaluation of expr1
until after
expr2
. expr1
will still be evaluated if expr2
raises an exception.
If you are using Lwt you can use [%defer.lwt expr1]; expr2
.
Thanks to Drup for guidance in figuring out ppx details!
As a simple example this code
let () =
[%defer print_endline "world"];
print_endline "Hello"
will print
Hello
world
as print_endline "world"
was deferred until after print_endline "Hello"
.
A more common use case would be closing an external resource at the end of the current expression.
let () =
let ic = open_in_bin "some_file" in
[%defer close_in ic];
let length = in_channel_length ic in
let bytes = really_input_string ic length in
print_endline bytes
This will close_in ic
at the end of the current expression, even if an
exception is raised.
See the examples/
directory for more examples.