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/q_util.mlp | |
| parent | bcb634d070519d6e37d9b7d39f12437a7d38f0c2 (diff) | |
[cleanup] Change Id.t option to Name.t in TacFun
Diffstat (limited to 'grammar/q_util.mlp')
| -rw-r--r-- | grammar/q_util.mlp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/grammar/q_util.mlp b/grammar/q_util.mlp index 919ca3ad7..0dd096ef7 100644 --- a/grammar/q_util.mlp +++ b/grammar/q_util.mlp @@ -58,6 +58,10 @@ let mlexpr_of_option f = function | None -> <:expr< None >> | Some e -> <:expr< Some $f e$ >> +let mlexpr_of_name f = function + | None -> <:expr< Anonymous >> + | Some e -> <:expr< Name $f e$ >> + let symbol_of_string s = <:expr< Extend.Atoken (CLexer.terminal $str:s$) >> let rec mlexpr_of_prod_entry_key f = function |