summaryrefslogtreecommitdiff
path: root/src/iter.c
diff options
context:
space:
mode:
authorAdrian Thurston <thurston@colm.net>2018-05-04 18:52:34 -0400
committerAdrian Thurston <thurston@colm.net>2018-05-04 18:52:34 -0400
commitdb6ce4fbd34ac49a5713e0f6178e15bc6dd67dbe (patch)
tree438767650eb4a71200eb1893850014448eaaa790 /src/iter.c
parent9f4428ab4a85dda803b3fbb7dce899bd35223cd2 (diff)
downloadcolm-db6ce4fbd34ac49a5713e0f6178e15bc6dd67dbe.tar.gz
don't downref args in the list iter destroy, not trees
Diffstat (limited to 'src/iter.c')
-rw-r--r--src/iter.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/iter.c b/src/iter.c
index a0a87465..e14aab23 100644
--- a/src/iter.c
+++ b/src/iter.c
@@ -51,8 +51,10 @@ void colm_list_iter_destroy( program_t *prg, tree_t ***psp, generic_iter_t *iter
long cur_stack_size = vm_ssize() - iter->root_size;
assert( iter->yield_size == cur_stack_size );
vm_popn( iter->yield_size );
- for ( i = 0; i < iter->arg_size; i++ )
- colm_tree_downref( prg, sp, vm_pop_tree() );
+ for ( i = 0; i < iter->arg_size; i++ ) {
+ //colm_tree_downref( prg, sp, vm_pop_tree() );
+ vm_pop_value();
+ }
iter->type = 0;
*psp = sp;
}