OK, garbage collection is now working a little bit.

This commit is contained in:
Simon Brooke 2026-04-23 17:34:07 +01:00
parent 235d455b80
commit 9425506e2a
5 changed files with 45 additions and 30 deletions

View file

@ -59,12 +59,12 @@ struct pso_pointer make_exception( struct pso_pointer frame_pointer ) {
if ( !c_nilp( result ) && !exceptionp( result ) ) {
struct pso3 *object = ( struct pso3 * ) pointer_to_object( result );
object->payload.exception.message = message;
object->payload.exception.message = inc_ref(message);
object->payload.exception.stack =
stackp( frame_pointer ) ? frame_pointer : nil;
stackp( frame_pointer ) ? inc_ref(frame_pointer) : nil;
object->payload.exception.meta = ( consp( meta )
|| hashtabp( meta ) ) ? meta : nil;
object->payload.exception.cause = exceptionp( cause ) ? cause : nil;
|| hashtabp( meta ) ) ? inc_ref(meta) : nil;
object->payload.exception.cause = exceptionp( cause ) ? inc_ref(cause) : nil;
}
return result;