Renaming.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12060 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Jan 20, 2012 · f5da2ab · f5da2ab
1 parent 094261c
commit f5da2ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/typing/typecore.ml b/typing/typecore.ml
@@ -186,7 +186,7 @@ let iter_expression f e =
   expr e
 
 
-let free_idents el =
+let all_idents el =
   let idents = Hashtbl.create 8 in
   let f = function
     | {pexp_desc=Pexp_ident (Longident.Lident id); _} ->
@@ -1372,7 +1372,7 @@ let dummy_expr = {pexp_desc = Pexp_tuple []; pexp_loc = Location.none}
 let duplicate_ident_types loc caselist env =
   let caselist =
     List.filter (fun (pat, _) -> contains_gadt env pat) caselist in
-  let idents = free_idents (List.map snd caselist) in
+  let idents = all_idents (List.map snd caselist) in
   List.fold_left
     (fun env s ->
       try