Hot damn! When you see an obvious, stupid bug you created, you can't unsee it!
This commit is contained in:
parent
ca5671f613
commit
02a4bc3e28
8 changed files with 563 additions and 495 deletions
|
|
@ -85,13 +85,14 @@ struct pso_pointer initialise_environment( uint32_t node ) {
|
|||
}
|
||||
if ( !exceptionp( result ) ) {
|
||||
result = c_bind( c_string_to_lisp_symbol( L"nil" ), nil, nil );
|
||||
debug_print(L"Environment after binding `nil`: ", DEBUG_BOOTSTRAP, 0);
|
||||
debug_print_object( result, DEBUG_BOOTSTRAP, 0);
|
||||
debug_print( L"Environment after binding `nil`: ", DEBUG_BOOTSTRAP,
|
||||
0 );
|
||||
debug_print_object( result, DEBUG_BOOTSTRAP, 0 );
|
||||
result = c_bind( c_string_to_lisp_symbol( L"t" ), t, result );
|
||||
|
||||
environment_initialised = true;
|
||||
debug_print(L"Environment after binding `t`: ", DEBUG_BOOTSTRAP, 0);
|
||||
debug_print_object( result, DEBUG_BOOTSTRAP, 0);
|
||||
debug_print( L"Environment after binding `t`: ", DEBUG_BOOTSTRAP, 0 );
|
||||
debug_print_object( result, DEBUG_BOOTSTRAP, 0 );
|
||||
|
||||
debug_print( L"\nEnvironment initialised successfully.\n",
|
||||
DEBUG_BOOTSTRAP, 0 );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue