diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot/me/trans.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index b0fd9c26..3a9085f7 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) |] |