Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Typos.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13094 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
commit 8ec89825dd3b971648f5440ea4e6d196d9f19ad9 1 parent 43d3058
alainfrisch alainfrisch authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 typing/typecore.ml
4 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
Please sign in to comment.
Something went wrong with that request. Please try again.