aboutsummaryrefslogtreecommitdiff
path: root/plugins/ssr/ssrparser.mlg
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-10-15 15:15:44 +0200
committerPierre-Marie Pédrot2020-10-15 15:15:44 +0200
commit476520ab32d3e975f6cee8aabcd04ad5fdfbbd77 (patch)
treee8a75d0411c275635540f675449cc38b00c989fd /plugins/ssr/ssrparser.mlg
parent4bf43453ec5f635ae87a2edeb4f51d95f2d5ac67 (diff)
parent92ddd42345f9976a1e3b2cc2e53541ef0864ed0b (diff)
Merge PR #13098: Deprecating wit_var to the benefit of its synonymous wit_hyp
Reviewed-by: ejgallego Reviewed-by: gares Ack-by: jfehrle Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ssr/ssrparser.mlg')
-rw-r--r--plugins/ssr/ssrparser.mlg2
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrparser.mlg b/plugins/ssr/ssrparser.mlg
index 89e0c9fcbe..7b584b5159 100644
--- a/plugins/ssr/ssrparser.mlg
+++ b/plugins/ssr/ssrparser.mlg
@@ -155,7 +155,7 @@ let pr_ssrhyp _ _ _ = pr_hyp
let wit_ssrhyprep = add_genarg "ssrhyprep" (fun env sigma -> pr_hyp)
let intern_hyp ist (SsrHyp (loc, id) as hyp) =
- let _ = Tacintern.intern_genarg ist (in_gen (rawwit wit_var) CAst.(make ?loc id)) in
+ let _ = Tacintern.intern_genarg ist (in_gen (rawwit wit_hyp) CAst.(make ?loc id)) in
if not_section_id id then hyp else
hyp_err ?loc "Can't clear section hypothesis " id