diff options
Diffstat (limited to 'parsing/egrammar.ml')
| -rw-r--r-- | parsing/egrammar.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index e97b3d5e4f..132dc7704b 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -16,6 +16,7 @@ open Topconstr open Ast open Genarg open Libnames +open Nameops (* State of the grammar extensions *) @@ -175,10 +176,6 @@ let subst_pat_id loc subst id = let subst_id subst id = try coerce_to_id (List.assoc id subst) with Not_found -> id -let name_app f = function - | Name id -> Name (f id) - | Anonymous -> Anonymous - (* let subst_cases_pattern_expr a loc subs = let rec subst = function |