From 233be40e25b6b9527a01f9c34525a03239164b6c Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Fri, 2 Jul 2010 17:13:02 -0700 Subject: Terminology mop-up. --- src/boot/me/transutil.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/boot/me/transutil.ml b/src/boot/me/transutil.ml index 0ec49c8e..69cba51c 100644 --- 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 -- cgit v1.2.3