diff options
| author | herbelin | 2002-12-05 19:41:01 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-05 19:41:01 +0000 |
| commit | c864319d90c8ea90432fb35198b73287ac54ecc2 (patch) | |
| tree | 053118793019c5c53b7bdff66660cdf9dc1b2611 /dev | |
| parent | 40d95dee38eb5c1ee3888aff6c067ebde59aae04 (diff) | |
Ajout affichage fconstr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3382 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -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 830e5cb5e7..6b8470b302 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 e936fc40f3..321a095d0b 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) |