:art: Fix bug with foreach (fix freeing)

diff --git a/src/clean.c b/src/clean.c
index 71fd2bde3aaf5b0e3fee525444492dcccbde4c5e..f124e0592ceef8b9134e8447f87d89fbc60e5ee5 100644 (file)
--- a/src/clean.c
+++ b/src/clean.c
@@ -164,7 +164,7 @@ ANN static void clean_stmt_each(Clean *a, Stmt_Each b) {
   clean_exp(a, b->exp);
   clean_stmt(a, b->body);
 //  if (b->v) value_remref(b->v, a->gwion);
-  if (b->v) mp_free(a->gwion->mp, Value, b);
+  if (b->v) mp_free(a->gwion->mp, Value, b->v);
   if (b->idx) clean_idx(a, b->idx);
   --a->scope;
 }