diff options
| author | Maxime Dénès | 2017-10-09 15:38:20 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-10-09 15:38:20 +0200 |
| commit | 81753dcda29bf7d7ecd6c8c0ddb3347f4cd49766 (patch) | |
| tree | 8af2a8e24a87fb5dea0bb6dc2feadd6b0e06fd3b /plugins/ssr/ssrparser.ml4 | |
| parent | d5534aab708e5d3bd6c3633dc9d028016eeb3076 (diff) | |
| parent | 347d94a4b966d0cc4a3a04814b0c76c4b05caa11 (diff) | |
Merge PR #1114: Generic handling of nameable objects for plugins
Diffstat (limited to 'plugins/ssr/ssrparser.ml4')
| -rw-r--r-- | plugins/ssr/ssrparser.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ssr/ssrparser.ml4 b/plugins/ssr/ssrparser.ml4 index 1e1a986daa..7b591feada 100644 --- a/plugins/ssr/ssrparser.ml4 +++ b/plugins/ssr/ssrparser.ml4 @@ -1554,8 +1554,8 @@ END let ssrautoprop gl = try let tacname = - try Nametab.locate_tactic (qualid_of_ident (Id.of_string "ssrautoprop")) - with Not_found -> Nametab.locate_tactic (ssrqid "ssrautoprop") in + try Tacenv.locate_tactic (qualid_of_ident (Id.of_string "ssrautoprop")) + with Not_found -> Tacenv.locate_tactic (ssrqid "ssrautoprop") in let tacexpr = Loc.tag @@ Tacexpr.Reference (ArgArg (Loc.tag @@ tacname)) in Proofview.V82.of_tactic (eval_tactic (Tacexpr.TacArg tacexpr)) gl with Not_found -> Proofview.V82.of_tactic (Auto.full_trivial []) gl |