Commit a61bd87a authored by Andrei Paskevich's avatar Andrei Paskevich

Pdecl: small fix

parent eafec71c
...@@ -299,6 +299,7 @@ let mk_decl = let r = ref 0 in fun node pure -> ...@@ -299,6 +299,7 @@ let mk_decl = let r = ref 0 in fun node pure ->
pd_tag = (incr r; !r) } pd_tag = (incr r; !r) }
let create_type_decl dl = let create_type_decl dl =
if dl = [] then invalid_arg "Pdecl.create_type_decl";
let add_itd ({itd_its = s} as itd) (abst,defn,rest) = let add_itd ({itd_its = s} as itd) (abst,defn,rest) =
match itd.itd_fields, itd.itd_constructors with match itd.itd_fields, itd.itd_constructors with
| [], [] when s.its_def <> None -> | [], [] when s.its_def <> None ->
......
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