aboutsummaryrefslogtreecommitdiffhomepage
path: root/parsing/g_constr.ml4
diff options
context:
space:
mode:
Diffstat (limited to 'parsing/g_constr.ml4')
-rw-r--r--parsing/g_constr.ml412
1 files changed, 0 insertions, 12 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4
index 8931d67f3..12cffc492 100644
--- a/parsing/g_constr.ml4
+++ b/parsing/g_constr.ml4
@@ -107,18 +107,6 @@ let ident_colon =
| _ -> err ())
| _ -> err ())
-let ident_with =
- Gram.Entry.of_parser "ident_with"
- (fun strm ->
- match get_tok (stream_nth 0 strm) with
- | IDENT s ->
- (match get_tok (stream_nth 1 strm) with
- | KEYWORD "with" ->
- stream_njunk 2 strm;
- Names.id_of_string s
- | _ -> err ())
- | _ -> err ())
-
let aliasvar = function CPatAlias (loc, _, id) -> Some (loc,Name id) | _ -> None
GEXTEND Gram