Commit cf95b1de authored by MARCHE Claude's avatar MARCHE Claude
Browse files

forget all dans pretty

parent 342d141c
......@@ -413,6 +413,7 @@ let print_theory fmt th =
print_th th (print_list newline2 print_tdecl) th.th_decls
let print_task fmt task =
forget_all ();
fprintf fmt "@[<hov 2>theory Task@\n%a@]@\nend@."
(print_list newline2 print_tdecl) (task_tdecls task)
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