Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove `opt_bar` and `opt_semi`.

master
François Pottier 2018-10-23 08:28:57 +02:00
parent f1882c2a71
commit a8c68f87b3
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
parsing/parser.mly
View File

@ -2638,7 +2638,7 @@ pattern_comma_list(self):
lbl_pattern_list:
lbl_pattern { [$1], Closed }
| lbl_pattern SEMI { [$1], Closed }
| lbl_pattern SEMI UNDERSCORE opt_semi { [$1], Open }
| lbl_pattern SEMI UNDERSCORE SEMI? { [$1], Open }
| lbl_pattern SEMI lbl_pattern_list
{ let (fields, closed) = $3 in $1 :: fields, closed }
;
@ -3160,13 +3160,13 @@ atomic_type:
{ Ptyp_variant($3, Closed, None) }
| LBRACKET row_field BAR row_field_list RBRACKET
{ Ptyp_variant($2 :: $4, Closed, None) }
| LBRACKETGREATER opt_bar row_field_list RBRACKET
| LBRACKETGREATER BAR? row_field_list RBRACKET
{ Ptyp_variant($3, Open, None) }
| LBRACKETGREATER RBRACKET
{ Ptyp_variant([], Open, None) }
| LBRACKETLESS opt_bar row_field_list RBRACKET
| LBRACKETLESS BAR? row_field_list RBRACKET
{ Ptyp_variant($3, Closed, Some []) }
| LBRACKETLESS opt_bar row_field_list GREATER name_tag_list RBRACKET
| LBRACKETLESS BAR? row_field_list GREATER name_tag_list RBRACKET
{ Ptyp_variant($3, Closed, Some $5) }
| extension
{ Ptyp_extension $1 }
@ -3485,14 +3485,6 @@ virtual_with_private_flag:
/* empty */ { Fresh }
| BANG { Override }
;
opt_bar:
/* empty */ { () }
| BAR { () }
;
opt_semi:
| /* empty */ { () }
| SEMI { () }
;
subtractive:
| MINUS { "-" }
| MINUSDOT { "-." }