4 files changed, 7 insertions, 7 deletions
diff --git a/otherlibs/labltk/compiler/compile.ml b/otherlibs/labltk/compiler/compile.ml
index 88a83fdfc..66c5fb569 100644
--- a/otherlibs/labltk/compiler/compile.ml
+++ b/otherlibs/labltk/compiler/compile.ml
@@ -42,7 +42,7 @@ let small_ident s =
   let idents = ["to"; "raise"; "in"; "class"; "new"]
   in
   let s = small s in
-  if List.mem elt:s idents then (String.make len:1 s.[0])^s
+  if List.mem item:s idents then (String.make len:1 s.[0])^s
   else s
 
 let gettklabel fc = 
@@ -54,7 +54,7 @@ let gettklabel fc =
         if s = "" then small fc.ml_name else small s
   | _ -> raise (Failure "gettklabel")
 
-let count elt:x l =
+let count item:x l =
   let count = ref 0 in
   List.iter fun:(fun y -> if x = y then incr count) l;
   !count
@@ -103,7 +103,7 @@ let ppMLtype ?:any{=false} ?:return{=false} ?:def{=false} ?:counter{=ref 0} =
         let l = List.map fcl fun:
           begin fun fc ->
             "?" ^ begin let p = gettklabel fc in
-                  if count elt:p tklabels > 1 then small fc.ml_name else p
+                  if count item:p tklabels > 1 then small fc.ml_name else p
                   end
             ^ ":" ^ 
             let l = types_of_template fc.template in
@@ -761,7 +761,7 @@ let write_catch_optionals :w clas def:typdef =
         (* used as names of variants *)
         fc.var_name,
         begin let p = gettklabel fc in
-          if count elt:p tklabels > 1 then small fc.ml_name else p
+          if count item:p tklabels > 1 then small fc.ml_name else p
         end,
         small_ident fc.ml_name (* used as labels *)
       end in
diff --git a/otherlibs/labltk/compiler/intf.ml b/otherlibs/labltk/compiler/intf.ml
index 2affef4b6..93126b467 100644
--- a/otherlibs/labltk/compiler/intf.ml
+++ b/otherlibs/labltk/compiler/intf.ml
@@ -15,7 +15,7 @@ let write_create_p :w wname =
       let l = List.map classdefs fun:
         begin fun fc ->
           begin let p = gettklabel fc in
-            if count elt:p tklabels > 1 then small fc.ml_name else p
+            if count item:p tklabels > 1 then small fc.ml_name else p
           end, fc.template
         end in
       w (catenate_sep sep:" ->\n" 
diff --git a/otherlibs/labltk/compiler/maincompile.ml b/otherlibs/labltk/compiler/maincompile.ml
index 8f4d29ae8..ffa4aa49c 100644
--- a/otherlibs/labltk/compiler/maincompile.ml
+++ b/otherlibs/labltk/compiler/maincompile.ml
@@ -106,7 +106,7 @@ verbose_string "type ";
 verbose_string "C2T ";
     write_CAMLtoTK w:(output_string to:oc') typname def:typdef;
 verbose_string "T2C ";
-    if List.mem elt:typname !types_returned then
+    if List.mem item:typname !types_returned then
     write_TKtoCAML w:(output_string to:oc') typname def:typdef;
 verbose_string "CO ";
     write_catch_optionals w:(output_string to:oc') typname def:typdef;
diff --git a/otherlibs/labltk/compiler/tables.ml b/otherlibs/labltk/compiler/tables.ml
index e4e0c5e7d..bd650463e 100644
--- a/otherlibs/labltk/compiler/tables.ml
+++ b/otherlibs/labltk/compiler/tables.ml
@@ -235,7 +235,7 @@ let rec has_callback = function
 
 (*** Returned types ***)
 let really_add ty = 
-  if List.mem elt:ty !types_returned then ()
+  if List.mem item:ty !types_returned then ()
   else types_returned := ty :: !types_returned
 
 let rec add_return_type = function