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:
parent
ba985474f6
commit
cb3dcb352e
6 changed files with 23 additions and 8 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue