fix a benign typo in the parser, spotted by Frédéric Bour

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13265 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2013-01-20 17:20:25 +00:00 · 2013-01-20 17:20:25 +00:00 · 06d3dfc6fb
parent 6d36ae6831
commit 06d3dfc6fb
1 changed files with 1 additions and 1 deletions
--- a/parsing/parser.mly
+++ b/parsing/parser.mly
@ -1299,7 +1299,7 @@ simple_pattern:
  | LBRACE lbl_pattern_list RBRACE
      { let (fields, closed) = $2 in mkpat(Ppat_record(fields, closed)) }
  | LBRACE lbl_pattern_list error
-      { unclosed "{" 1 "}" 4 }
+      { unclosed "{" 1 "}" 3 }
  | LBRACKET pattern_semi_list opt_semi RBRACKET
      { reloc_pat (mktailpat (rhs_loc 4) (List.rev $2)) }
  | LBRACKET pattern_semi_list opt_semi error