Fixed a wrong condition; fix #3550

Shared TT_ENV should be unshared. Reversed condition.
This commit is contained in:
Yukihiro "Matz" Matsumoto
2017-04-18 16:47:24 +09:00
parent e8dca6b034
commit ae4217e813
+1 -1
View File
@@ -769,7 +769,7 @@ obj_free(mrb_state *mrb, struct RBasic *obj, int end)
while (ce <= ci) {
struct REnv *e = ci->env;
if (e && !is_dead(&mrb->gc, e) &&
e->tt == MRB_TT_ENV && MRB_ENV_STACK_SHARED_P(e)) {
e->tt == MRB_TT_ENV && !MRB_ENV_STACK_SHARED_P(e)) {
mrb_env_unshare(mrb, e);
}
ci--;