diff options
-rw-r--r-- | dev/include | 3 | ||||
-rw-r--r-- | dev/top_printers.ml | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/dev/include b/dev/include index 830e5cb5e..6b8470b30 100644 --- a/dev/include +++ b/dev/include @@ -29,3 +29,6 @@ #install_printer (* tactic *) pptac;; #install_printer (* object *) pr_obj;; #install_printer (* global_reference *) prglobal;; + +#install_printer (* fconstr *) ppfconstr;; + diff --git a/dev/top_printers.ml b/dev/top_printers.ml index e936fc40f..321a095d0 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -290,3 +290,4 @@ let _ = | _ -> bad_vernac_args "PrintPureConstr") *) +let ppfconstr c = ppterm (Closure.term_of_fconstr c) |