aboutsummaryrefslogtreecommitdiffhomepage
path: root/grammar/q_util.ml4
diff options
context:
space:
mode:
Diffstat (limited to 'grammar/q_util.ml4')
-rw-r--r--grammar/q_util.ml43
1 files changed, 0 insertions, 3 deletions
diff --git a/grammar/q_util.ml4 b/grammar/q_util.ml4
index 53330429d..a9a339241 100644
--- a/grammar/q_util.ml4
+++ b/grammar/q_util.ml4
@@ -58,9 +58,6 @@ let mlexpr_of_option f = function
| None -> <:expr< None >>
| Some e -> <:expr< Some $f e$ >>
-let mlexpr_of_ident id =
- <:expr< Names.Id.of_string $str:id$ >>
-
let symbol_of_string s = <:expr< Extend.Atoken (CLexer.terminal $str:s$) >>
let rec mlexpr_of_prod_entry_key f = function