Written the constructor for exceptions; in the process, added a

metadata slot as a first class slot of exceptions.
This commit is contained in:
Simon Brooke 2026-04-16 21:33:48 +01:00
parent f915a9993f
commit 83537391a6
11 changed files with 85 additions and 20 deletions

View file

@ -58,7 +58,7 @@ struct pso_pointer initialise_environment( uint32_t node ) {
result =
make_exception( c_string_to_lisp_string
( L"Unexpected cell while allocating `nil`." ),
nil, n );
nil, nil, n );
debug_print( L"fail\n", DEBUG_BOOTSTRAP, 0 );
}
}
@ -79,7 +79,7 @@ struct pso_pointer initialise_environment( uint32_t node ) {
result =
make_exception( c_string_to_lisp_string
( L"Unexpected cell while allocating `t`." ),
nil, n );
nil, nil, n );
debug_print( L"fail\n", DEBUG_BOOTSTRAP, 0 );
}
}