simon/post-scarcity
1
0
Fork 0
Code Issues 18 Pull requests Projects Releases Packages Wiki Activity Actions

String-like-things are being created and printed correctly; bind is broken.

Browse source
This commit is contained in:
Simon Brooke 2026-04-17 18:40:32 +01:00
parent cf05e30540
commit ca5671f613
8 changed files with 508 additions and 450 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/environment/environment.c
View file

@ -36,7 +36,7 @@ bool environment_initialised = false;
* @brief Initialise a minimal environment, so that Lisp can be bootstrapped.
*
* @param node the index of the node we are initialising.
* @return struct pso_pointer t on success, else an exception.
* @return a proto-environment on success, else an exception.
*/
struct pso_pointer initialise_environment( uint32_t node ) {
@ -85,9 +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);
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"\nEnvironment initialised successfully.\n",
DEBUG_BOOTSTRAP, 0 );
}