OK, the problem is that make_frame fails to put the arguments into the frame.

I do not (yet) know why not, but that is the problem.
This commit is contained in:
Simon Brooke 2026-04-16 12:34:47 +01:00
parent ba985474f6
commit cb3dcb352e
6 changed files with 23 additions and 8 deletions

View file

@ -52,6 +52,7 @@ struct pso_pointer initialise_environment( uint32_t node ) {
object->payload.cons.cdr = nil;
nil = n;
lock_object( nil);
debug_print( L"success\n", DEBUG_BOOTSTRAP, 0);
} else {
result =
@ -72,6 +73,7 @@ struct pso_pointer initialise_environment( uint32_t node ) {
object->payload.cons.cdr = t;
t = n;
lock_object(t);
debug_print( L"success\n", DEBUG_BOOTSTRAP, 0);
} else {
result =
@ -86,6 +88,7 @@ struct pso_pointer initialise_environment( uint32_t node ) {
result = c_bind( c_string_to_lisp_symbol( L"t" ), t, result );
environment_initialised = true;
debug_print( L"\nEnvironment initialised successfully.\n", DEBUG_BOOTSTRAP, 0);
}
return result;