Commit a3c3ddfc authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

*_node types do not need to be private

parent 950394f1
......@@ -76,7 +76,7 @@ type pattern = private {
pat_ty : ty;
}
and pattern_node = private
and pattern_node =
| Pwild
| Pvar of vsymbol
| Papp of lsymbol * pattern list
......@@ -117,7 +117,7 @@ type term = private {
t_loc : Loc.position option;
}
and term_node = private
and term_node =
| Tvar of vsymbol
| Tconst of Number.constant
| Tapp of lsymbol * term list
......
......@@ -114,7 +114,7 @@ type expr = private {
e_loc : Loc.position option;
}
and expr_node = private
and expr_node =
| Evar of pvsymbol
| Econst of Number.constant
| Eexec of cexp * cty
......@@ -136,7 +136,7 @@ and cexp = private {
c_cty : cty;
}
and cexp_node = private
and cexp_node =
| Capp of rsymbol * pvsymbol list
| Cpur of lsymbol * pvsymbol list
| Cfun of expr
......
Supports Markdown
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