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 /toplevel | |
| parent | 2e9e6e8c694cb2bfec9c2fb58053cd270f135796 (diff) | |
More complete printing of Ltac location, akin to the term-dedicated Locate command.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 074d260c74..737d1c5232 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -408,14 +408,6 @@ let print_located_module r = else msg_error (str "No module is referred to by name" ++ spc () ++ pr_qualid qid) -let print_located_tactic r = - let (loc,qid) = qualid_of_reference r in - try - let path = Nametab.path_of_tactic (Nametab.locate_tactic qid) in - msg_notice (str "Ltac " ++ pr_path path) - with Not_found -> - msg_error (str "No Ltac definition is referred to by " ++ pr_qualid qid) - let smart_global r = let gr = Smartlocate.smart_global r in Dumpglob.add_glob (Constrarg.loc_of_or_by_notation loc_of_reference r) gr; @@ -1547,7 +1539,7 @@ let vernac_locate = function (Constrextern.without_symbols pr_lglob_constr) ntn sc) | LocateLibrary qid -> print_located_library qid | LocateModule qid -> print_located_module qid - | LocateTactic qid -> print_located_tactic qid + | LocateTactic qid -> msg_notice (print_located_tactic qid) | LocateFile f -> msg_notice (locate_file f) let vernac_register id r = |