Commit 22c483a6 authored by POTTIER Francois's avatar POTTIER Francois

Add [Printer.print_expr], for convenience.

parent 7b5f6edc
......@@ -730,3 +730,15 @@ let expr e =
flush X.f
end
(* ------------------------------------------------------------------------- *)
(* Common instantiations. *)
let print_expr f e =
let module P =
Make (struct
let f = f
let locate_stretches = None
end)
in
P.expr e
......@@ -25,3 +25,6 @@ end) : sig
end
(* Common instantiations. *)
val print_expr: out_channel -> IL.expr -> unit (* no #line directives *)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment