diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-02 19:00:39 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-02 20:01:39 +0200 |
commit | a4306c357407c8d5e10eb35bb270f4bde5287c78 (patch) | |
tree | 812077f5e9c25c197bc40341921c0c661d390e7f | |
parent | 48d7337f0d685efe11b1ec2a7fd3d68bdedf0d60 (diff) |
Remove the hardcoded compatibility wit_hyp -> wit_var from the parser.
-rw-r--r-- | grammar/coqpp_parse.mly | 1 | ||||
-rw-r--r-- | plugins/ltac/coretactics.mlg | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/grammar/coqpp_parse.mly b/grammar/coqpp_parse.mly index d7fcc122c..baafd633c 100644 --- a/grammar/coqpp_parse.mly +++ b/grammar/coqpp_parse.mly @@ -42,7 +42,6 @@ let parse_user_entry s sep = let rec parse s sep = function | [] -> let () = without_sep ignore sep () in - let s = match s with "hyp" -> "var" | _ -> s in begin match starts s "tactic" with | Some ("0"|"1"|"2"|"3"|"4"|"5") -> Uentryl ("tactic", int_of_string s) | Some _ | None -> Uentry s diff --git a/plugins/ltac/coretactics.mlg b/plugins/ltac/coretactics.mlg index a7331223e..6388906f5 100644 --- a/plugins/ltac/coretactics.mlg +++ b/plugins/ltac/coretactics.mlg @@ -20,6 +20,8 @@ open Tacarg open Names open Logic +let wit_hyp = wit_var + } DECLARE PLUGIN "ltac_plugin" |