Successfully added mutexes protecting freelist access. No behaviour change.

This commit is contained in:
Simon Brooke 2026-04-20 13:59:47 +01:00
parent c59825d7fe
commit f05d1af9d6
14 changed files with 132 additions and 69 deletions

View file

@ -44,7 +44,7 @@ struct pso_pointer c_reverse( struct pso_pointer sequence ) {
struct pso2 *object = pointer_to_object( cursor );
switch ( get_tag_value( cursor ) ) {
case CONSTV:
result = c_cons( c_car( cursor ), result );
result = make_cons( c_car( cursor ), result );
break;
case KEYTV:
// TODO: should you be able to reverse keywords and symbols?
@ -65,7 +65,7 @@ struct pso_pointer c_reverse( struct pso_pointer sequence ) {
break;
default:
result =
make_exception( c_cons( c_string_to_lisp_string
make_exception( make_cons( c_string_to_lisp_string
( L"Invalid object in sequence" ),
cursor ), nil, nil, nil );
goto exit;