diff options
| author | delahaye | 2001-09-30 17:54:12 +0000 |
|---|---|---|
| committer | delahaye | 2001-09-30 17:54:12 +0000 |
| commit | a2bdd28d1bdb93664037751b9dc84bcf7d90b6b6 (patch) | |
| tree | e2e0e1ddb61937ab2be828901cf9d350d050aa4d /dev | |
| parent | edd682e03ae93dda78c49d781b32a7f03a46a4c2 (diff) | |
Ajout du printer de tactiques + modif du Dynamic ocaml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2086 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/include | 4 | ||||
| -rw-r--r-- | dev/top_printers.ml | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/dev/include b/dev/include index 2a841e4583..ce923477b2 100644 --- a/dev/include +++ b/dev/include @@ -24,4 +24,6 @@ #install_printer (* readable_constraints *) prevc;; #install_printer (* walking_constraints *) prwc;; #install_printer (* clenv *) prclenv;; -#install_printer (* env *) ppenv;;
\ No newline at end of file +#install_printer (* env *) ppenv;; + +#install_printer (* tactic *) pptac;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 71347c695a..51334029e5 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -79,6 +79,8 @@ let pp_universes u = pP [< 'sTR"[" ; pr_universes u ; 'sTR"]" >] let ppenv e = pP (pr_rel_context e (rel_context e)) +let pptac = (fun x -> pP(gentacpr x)) + let cnt = ref 0 let constr_display csr = |