diff options
| -rw-r--r-- | src/boot/me/type.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml index 13f25778..ddb9608b 100644 --- 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 |