aboutsummaryrefslogtreecommitdiff
path: root/parsing
diff options
context:
space:
mode:
authorThéo Zimmermann2020-05-13 13:06:08 +0200
committerThéo Zimmermann2020-05-13 13:06:08 +0200
commitd80458841316ca7edf7317ef412142e27133c931 (patch)
tree3baabb2bcd428af714fc0bcb2183f42e14c9efff /parsing
parent23be910b49eac7a69a30b1e737a4738e24edcaa0 (diff)
parent037c8d299ca1a5aef9813133dca07ad6f35e1e75 (diff)
Merge PR #12229: Hopefully consensual cleaning of keywords
Reviewed-by: Zimmi48 Reviewed-by: jfehrle Ack-by: ppedrot
Diffstat (limited to 'parsing')
-rw-r--r--parsing/g_constr.mlg10
-rw-r--r--parsing/g_prim.mlg4
2 files changed, 0 insertions, 14 deletions
diff --git a/parsing/g_constr.mlg b/parsing/g_constr.mlg
index 963f029766..c19dd00b38 100644
--- a/parsing/g_constr.mlg
+++ b/parsing/g_constr.mlg
@@ -26,16 +26,6 @@ open Pcoq.Constr
(* TODO: avoid this redefinition without an extra dep to Notation_ops *)
let ldots_var = Id.of_string ".."
-let constr_kw =
- [ "forall"; "fun"; "match"; "fix"; "cofix"; "with"; "in"; "for";
- "end"; "as"; "let"; "if"; "then"; "else"; "return";
- "SProp"; "Prop"; "Set"; "Type";
- ":="; "=>"; "->"; ".."; "<:"; "<<:"; ":>";
- ".("; "()"; "`{"; "`("; "@{"; "{|";
- "_"; "@"; "+"; "!"; "?"; ";"; ","; ":" ]
-
-let _ = List.iter CLexer.add_keyword constr_kw
-
let mk_cast = function
(c,(_,None)) -> c
| (c,(_,Some ty)) ->
diff --git a/parsing/g_prim.mlg b/parsing/g_prim.mlg
index 7cabd850ad..cc59b2175b 100644
--- a/parsing/g_prim.mlg
+++ b/parsing/g_prim.mlg
@@ -15,10 +15,6 @@ open Libnames
open Pcoq.Prim
-let prim_kw = ["{"; "}"; "["; "]"; "("; ")"; "'"; "%"; "|"]
-let _ = List.iter CLexer.add_keyword prim_kw
-
-
let local_make_qualid loc l id = make_qualid ~loc (DirPath.make l) id
let my_int_of_string ?loc s =