From 27d69a88b1bcc1070f5d20fdd6681cc001f71632 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 1 Jul 2010 23:20:28 -0700
Subject: [PATCH] Teach clone_ty to tolerate cloning a mutable (though not
 state) type.

---
 src/boot/me/trans.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index b0fd9c2602f..3a9085f725b 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -2573,7 +2573,7 @@ let trans_visitor
       (ty:Ast.ty)
       (curr_iso:Ast.ty_iso option)
       : unit =
-    match ty with
+    match strip_mutable_or_constrained_ty ty with
         Ast.TY_chan _ ->
           trans_upcall "upcall_clone_chan" dst
             [| (Il.Cell clone_task); (Il.Cell src) |]