diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-03-31 17:11:06 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-03-31 17:11:06 +0000 |
| commit | d15be1d409d07f6fc0ca637dc63d4c3dd4b63924 (patch) | |
| tree | f30f85efb5c0a34dc439559b4abcdb72869c869b | |
| parent | a09530145b64ee697f12cf8f026a638f7a9cb5bf (diff) | |
mauvais types de locations
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5472 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -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 */ |