Freeing vector-space objects, apparently good.

Not freeing enough cons-space objects, though!
This commit is contained in:
Simon Brooke 2018-12-29 08:23:26 +00:00
parent 40e1f3ca64
commit ad806de656
3 changed files with 17 additions and 3 deletions

View file

@ -222,14 +222,14 @@ void free_stack_frame( struct stack_frame *frame ) {
/*
* TODO: later, push it back on the stack-frame freelist
*/
debug_print(L"Entering free_stack_frame\n", DEBUG_ALLOC);
for ( int i = 0; i < args_in_frame; i++ ) {
dec_ref( frame->arg[i] );
}
if ( !nilp( frame->more ) ) {
dec_ref( frame->more );
}
free( frame );
debug_print(L"Leaving free_stack_frame\n", DEBUG_ALLOC);
}