From 49ac5e631224da77568e685571af5d08ab407060 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Fri, 25 Jun 2010 23:02:19 -0700 Subject: [PATCH] Fix copy-paste error in logging function. --- src/boot/me/trans.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 911c2acd7d1..182f4f5e8f0 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -2891,8 +2891,8 @@ let trans_visitor match slot_mem_ctrl slot with MEM_gc -> "MEM_gc" | MEM_rc_struct -> "MEM_rc_struct" - | MEM_rc_opaque -> "MEM_rc_struct" - | MEM_interior -> "MEM_rc_struct" + | MEM_rc_opaque -> "MEM_rc_opaque" + | MEM_interior -> "MEM_interior" in let slotstr = Fmt.fmt_to_str Ast.fmt_slot slot in let str = step ^ " " ^ mctrl_str ^ " " ^ slotstr in