From 32ea597251d4fc7cfbab26022a5355949e8a3257 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 21 Jul 2014 14:34:20 +0200 Subject: More complete printing of Ltac location, akin to the term-dedicated Locate command. --- library/nametab.ml | 2 ++ library/nametab.mli | 1 + 2 files changed, 3 insertions(+) (limited to 'library') diff --git a/library/nametab.ml b/library/nametab.ml index 1a30e80d1..4a61a9540 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -427,6 +427,8 @@ let locate_all qid = let locate_extended_all qid = ExtRefTab.find_prefixes qid !the_ccitab +let locate_extended_all_tactic qid = KnTab.find_prefixes qid !the_tactictab + (* Derived functions *) let locate_constant qid = diff --git a/library/nametab.mli b/library/nametab.mli index d9038c774..ed4200456 100644 --- a/library/nametab.mli +++ b/library/nametab.mli @@ -111,6 +111,7 @@ val global_inductive : reference -> inductive val locate_all : qualid -> global_reference list val locate_extended_all : qualid -> extended_global_reference list +val locate_extended_all_tactic : qualid -> ltac_constant list (** Mapping a full path to a global reference *) -- cgit v1.2.3