diff options
Diffstat (limited to 'parsing/parser.mly')
| -rw-r--r-- | parsing/parser.mly | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/parser.mly b/parsing/parser.mly index 4b4b08cae..cd7cbacd3 100644 --- a/parsing/parser.mly +++ b/parsing/parser.mly @@ -534,7 +534,7 @@ class_fun_binding: { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $2)) } ; class_type_parameters: - /*empty*/ { [], symbol_rloc () } + /*empty*/ { [], symbol_gloc () } | LBRACKET type_parameter_list RBRACKET { List.rev $2, symbol_rloc () } ; class_fun_def: @@ -581,7 +581,7 @@ class_self_pattern: | LPAREN pattern COLON core_type RPAREN { mkpat(Ppat_constraint($2, $4)) } | /* empty */ - { mkpat(Ppat_any) } + { ghpat(Ppat_any) } ; class_fields: /* empty */ |