Teach clone_ty to tolerate cloning a mutable (though not state) type.

2010-07-01 23:20:28 -07:00 · 2010-07-01 23:20:28 -07:00 · 27d69a88b1
commit 27d69a88b1
parent a2e4d45600
1 changed files with 1 additions and 1 deletions
--- 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) |]