Remove kwd_expr

This commit is contained in:
John David Pressman 2019-10-19 10:55:39 -07:00
parent daad15c57d
commit 09230df60a
5 changed files with 0 additions and 9 deletions

View File

@ -49,7 +49,6 @@ type kwd_contains = Region.t
type kwd_down = Region.t
type kwd_else = Region.t
type kwd_end = Region.t
type kwd_expr = Region.t
type kwd_for = Region.t
type kwd_from = Region.t
type kwd_function = Region.t

View File

@ -33,7 +33,6 @@ type kwd_contains = Region.t
type kwd_down = Region.t
type kwd_else = Region.t
type kwd_end = Region.t
type kwd_expr = Region.t
type kwd_for = Region.t
type kwd_from = Region.t
type kwd_function = Region.t

View File

@ -80,7 +80,6 @@ type t =
| Down of Region.t (* "down" *)
| Else of Region.t (* "else" *)
| End of Region.t (* "end" *)
| Expr of Region.t (* "expr" *)
| Fail of Region.t (* "fail" *)
| For of Region.t (* "for" *)
| From of Region.t (* "from" *)

View File

@ -78,7 +78,6 @@ type t =
| Down of Region.t (* "down" *)
| Else of Region.t (* "else" *)
| End of Region.t (* "end" *)
| Expr of Region.t (* "expr" *)
| Fail of Region.t (* "fail" *)
| For of Region.t (* "for" *)
| From of Region.t (* "from" *)
@ -211,7 +210,6 @@ let proj_token = function
| Down region -> region, "Down"
| Else region -> region, "Else"
| End region -> region, "End"
| Expr region -> region, "Expr"
| Fail region -> region, "Fail"
| For region -> region, "For"
| From region -> region, "From"
@ -305,7 +303,6 @@ let to_lexeme = function
| Down _ -> "down"
| Else _ -> "else"
| End _ -> "end"
| Expr _ -> "expr"
| Fail _ -> "fail"
| For _ -> "for"
| From _ -> "from"
@ -367,7 +364,6 @@ let keywords = [
(fun reg -> Down reg);
(fun reg -> Else reg);
(fun reg -> End reg);
(fun reg -> Expr reg);
(fun reg -> For reg);
(fun reg -> From reg);
(fun reg -> Function reg);
@ -592,7 +588,6 @@ let is_kwd = function
| Down _
| Else _
| End _
| Expr _
| Fail _
| For _
| From _

View File

@ -53,7 +53,6 @@
%token <Region.t> Contains (* "contains" *)
%token <Region.t> Else (* "else" *)
%token <Region.t> End (* "end" *)
%token <Region.t> Expr (* "expr" *)
%token <Region.t> For (* "for" *)
%token <Region.t> Function (* "function" *)
%token <Region.t> From (* "from" *)