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