diff options
| author |  Tej Chajed <tchajed@mit.edu> | 2017-02-16 10:24:15 -0500 |
|---|---|---|
| committer | Tej Chajed <tchajed@mit.edu> | 2017-02-16 13:49:11 -0500 |
| commit | e6127d1f65a761a27c80b81c0f1bc5fca2b74af8 (patch) | |
| tree | 9c839d3ef53da61f50a1c044d6120c3f5e363de8 /grammar/tacextend.mlp | |
| parent | bcb634d070519d6e37d9b7d39f12437a7d38f0c2 (diff) | |
[cleanup] Change Id.t option to Name.t in TacFun
Diffstat (limited to 'grammar/tacextend.mlp')
| -rw-r--r-- | grammar/tacextend.mlp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammar/tacextend.mlp b/grammar/tacextend.mlp index fe864ed40..8605dda3a 100644 --- a/grammar/tacextend.mlp +++ b/grammar/tacextend.mlp @@ -88,7 +88,7 @@ let declare_tactic loc s c cl = match cl with add any grammar nor printing rule and add it as a true Ltac definition. *) let patt = make_patt rem in let vars = List.map make_var rem in - let vars = mlexpr_of_list (mlexpr_of_option mlexpr_of_ident) vars in + let vars = mlexpr_of_list (mlexpr_of_name mlexpr_of_ident) vars in let entry = mlexpr_of_string s in let se = <:expr< { Tacexpr.mltac_tactic = $entry$; Tacexpr.mltac_plugin = $plugin_name$ } >> in let ml = <:expr< { Tacexpr.mltac_name = $se$; Tacexpr.mltac_index = 0 } >> in |