diff options
| author | Pierre-Marie Pédrot | 2014-07-21 14:34:20 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-07-21 14:57:30 +0200 |
| commit | 32ea597251d4fc7cfbab26022a5355949e8a3257 (patch) | |
| tree | d4397024bd22a3b909fff391f85d4bfd112416ea /library | |
| parent | 2e9e6e8c694cb2bfec9c2fb58053cd270f135796 (diff) | |
More complete printing of Ltac location, akin to the term-dedicated Locate command.
Diffstat (limited to 'library')
| -rw-r--r-- | library/nametab.ml | 2 | ||||
| -rw-r--r-- | library/nametab.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 1a30e80d13..4a61a95405 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 d9038c7741..ed42004567 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 *) |