Terminology mop-up.

2010-07-02 17:13:02 -07:00 · 2010-07-02 17:13:02 -07:00 · 233be40e25
parent 46ebf12f40
commit 233be40e25
1 changed files with 2 additions and 2 deletions
--- a/src/boot/me/transutil.ml
+++ b/src/boot/me/transutil.ml
@ -216,7 +216,7 @@ let iter_tup_parts
    (get_element_ptr:'a -> int -> 'a)
    (dst_ptr:'a)
    (src_ptr:'a)
-    (slots:Ast.ty_tup)
+    (tys:Ast.ty_tup)
    (f:'a -> 'a -> Ast.ty -> (Ast.ty_iso option) -> unit)
    (curr_iso:Ast.ty_iso option)
    : unit =
@ -227,7 +227,7 @@ let iter_tup_parts
          (get_element_ptr src_ptr i)
          ty curr_iso
    end
-    slots
+    tys
 ;;

 let iter_rec_parts