Strip off TY_mutables and TY_constraineds when unboxing values during autoderef

2010-07-19 19:12:02 -07:00 · 2010-07-19 19:12:02 -07:00 · b0f77088fa
commit b0f77088fa
parent ae515c017c
1 changed files with 1 additions and 0 deletions
--- a/src/boot/me/type.ml
+++ b/src/boot/me/type.ml
@ -55,6 +55,7 @@ let check_stmt (cx:Semant.ctxt) : (fn_ctx -> Ast.stmt -> unit) =
    let rec unbox ty acc =
      match ty with
          Ast.TY_box ty' -> unbox ty' (acc + 1)
+        | Ast.TY_mutable ty' | Ast.TY_constrained (ty', _) -> unbox ty' acc
        | _ -> (ty, acc)
    in
    unbox ty 0