diff options
author | 2005-05-20 16:14:52 +0000 | |
---|---|---|
committer | 2005-05-20 16:14:52 +0000 | |
commit | d361ee5b960e1a54d451dc81557f19e504baa42a (patch) | |
tree | 417cf2b9bce2dcaf293cc9ab11ad5ebede7d2dc9 /toplevel | |
parent | d0a324eef4d35a87e300a2b660b26fdbe2043d92 (diff) |
New command: "Print Ltac qualid" to print user defined tactics.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7053 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/vernacentries.ml | 1 | ||||
-rw-r--r-- | toplevel/vernacexpr.ml | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index b65379d65..d288c3153 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -877,6 +877,7 @@ let vernac_print = function | PrintOpaqueName qid -> msg (print_opaque_name qid) | PrintGraph -> ppnl (Prettyp.print_graph()) | PrintClasses -> ppnl (Prettyp.print_classes()) + | PrintLtac qid -> ppnl (Tacinterp.print_ltac (snd (qualid_of_reference qid))) | PrintCoercions -> ppnl (Prettyp.print_coercions()) | PrintCoercionPaths (cls,clt) -> ppnl (Prettyp.print_path_between (cl_of_qualid cls) (cl_of_qualid clt)) diff --git a/toplevel/vernacexpr.ml b/toplevel/vernacexpr.ml index 8c1d77511..ba556c01c 100644 --- a/toplevel/vernacexpr.ml +++ b/toplevel/vernacexpr.ml @@ -49,6 +49,7 @@ type printable = | PrintOpaqueName of reference | PrintGraph | PrintClasses + | PrintLtac of reference | PrintCoercions | PrintCoercionPaths of class_rawexpr * class_rawexpr | PrintCanonicalConversions |