Simplify type before deciding how to free it. Hint: calling free() on a running task is usually a bad idea.

2010-07-02 16:42:42 -07:00 · 2010-07-02 16:42:42 -07:00 · 3070725cce
parent 8660ce50a1
commit 3070725cce
1 changed files with 1 additions and 1 deletions
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@ -2616,7 +2616,7 @@ let trans_visitor
      (cell:Il.cell)
      (curr_iso:Ast.ty_iso option)
      : unit =
-    match ty with
+    match simplified_ty ty with
        Ast.TY_port _ -> trans_del_port cell
      | Ast.TY_chan _ -> trans_del_chan cell
      | Ast.TY_task -> trans_kill_task cell