Commit 5aeb1166 authored by POTTIER Francois's avatar POTTIER Francois

Added expr14, mapping expr to hexpr.

parent a70a7fb6
......@@ -4,5 +4,5 @@ true: \
package(visitors.ppx), \
package(visitors.runtime)
<expr07*> or <expr08*>: \
<expr07*> or <expr08*> or <expr14*>: \
package(hashcons)
open Expr12 (* [oexpr] *)
open Expr13 (* [expr] *)
open Expr08 (* [hexpr] *)
let import (e : expr) : hexpr =
let v = object (self)
inherit [_] omap
method visit_'expr _env (E e) =
make (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