From 7b6ed1e95bef26f4ae85d7471985128c0dfdbc15 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 1 Mar 2001 14:02:59 +0000 Subject: Déplacement de qualid dans Nametab, hors du noyau git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1419 85f007b7-540e-0410-9357-904b9bb8a0f7 --- dev/top_printers.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'dev') diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 7cb08e06b4..998ad3054e 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -252,7 +252,7 @@ let print_pure_constr csr = in box_display csr; print_newline() - +(* let _ = Vernacentries.add "PrintConstr" (function @@ -270,3 +270,4 @@ let _ = let (evmap,sign) = Command.get_current_context () in print_pure_constr (Astterm.interp_constr evmap sign c)) | _ -> bad_vernac_args "PrintPureConstr") +*) -- cgit v1.2.3