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

print_inst plus robust

parent 1d0d5289
......@@ -328,7 +328,8 @@ let print_inst fmt (id1,id2) =
else if Hid.mem phash id2 then
let n = id_unique pprinter id1 in
fprintf fmt "prop %s = %a" n print_pr (Hid.find phash id2)
else assert false
else
fprintf fmt "ident %s = %s" id1.id_long id2.id_long
let print_decl fmt d = match d.d_node with
| Dtype tl -> print_list newline print_type_decl fmt tl
......
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