Permalink
Browse files

Typos.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13094 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 43d3058 commit 8ec89825dd3b971648f5440ea4e6d196d9f19ad9 @alainfrisch alainfrisch committed Nov 15, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 typing/typecore.ml
View
@@ -1767,8 +1767,8 @@ and type_expect_ ?in_function env sexp ty_expected =
(* type_label_a_list returns a list of labels sorted by lbl_pos *)
(* note: check_duplicates would better be implemented in
type_label_a_list directly *)
- let rec check_duplicates seen_pos = function
- | (_, lbl, _) :: (_, lbl, _) :: _ when lbl1.lbl_pos = lbl2.lbl_pos ->
+ let rec check_duplicates = function
+ | (_, lbl1, _) :: (_, lbl2, _) :: _ when lbl1.lbl_pos = lbl2.lbl_pos ->
raise(Error(loc, Label_multiply_defined lbl1.lbl_name))
| _ :: rem ->
check_duplicates rem

0 comments on commit 8ec8982

Please sign in to comment.