Commit 3746ef4d authored by POTTIER Francois's avatar POTTIER Francois

Added export of hexpr to expr.

parent 5aeb1166
open Hashcons
open Expr12 (* [oexpr] *)
open Expr13 (* [expr] *)
open Expr08 (* [hexpr] *)
......@@ -9,3 +10,11 @@ let import (e : expr) : hexpr =
make (self#visit_oexpr _env e)
end in
v # visit_'expr () e
let export (e : hexpr) : expr =
let v = object (self)
inherit [_] omap
method visit_'expr _env (H { node = e; _ }) =
E (self#visit_oexpr _env e)
end in
v # visit_'expr () e
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