diff options
Diffstat (limited to 'src/boot/me/effect.ml')
| -rw-r--r-- | src/boot/me/effect.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/effect.ml b/src/boot/me/effect.ml index 9ddef63d..fba08256 100644 --- a/src/boot/me/effect.ml +++ b/src/boot/me/effect.ml @@ -45,7 +45,7 @@ let mutability_checking_visitor Ast.TY_mutable _ -> true | _ -> false in - if (is_mutable or (Hashtbl.mem cx.ctxt_copy_stmt_is_init s.id)) + if (is_mutable or (Hashtbl.mem cx.ctxt_stmt_is_init s.id)) then () else err (Some s.id) "writing to non-mutable slot of type %a in statement %a" |