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

Ran a 'make format', because !'m close to being able to merge this feature.

Browse source
This commit is contained in:
Simon Brooke 2026-05-06 16:45:56 +01:00
parent 5e64a33965
commit 80049f2272
52 changed files with 936 additions and 843 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/c/payloads/exception.c
View file

@ -121,29 +121,29 @@ struct pso_pointer throw_exception_with_cause( struct pso_pointer location,
debug_print( L"`\n", DEBUG_ANY, 0 );
if ( !c_nilp( cause ) ) {
debug_print( L"\tCaused by: ", DEBUG_ANY, 0 );
debug_print_object( cause, DEBUG_ANY, 0);
debug_print_object( cause, DEBUG_ANY, 0 );
debug_print( L"`\n", DEBUG_ANY, 0 );
}
#endif
struct pso2 *cell = pointer_to_object( message );
if (get_tag_value( message)) {
result = message;
} else {
struct pso_pointer x_frame = inc_ref(make_frame(
2, frame_pointer, message,
(c_nilp(location)
? nil
: make_cons(frame_pointer,
make_cons(frame_pointer,
privileged_keyword_location, location),
nil)),
cause));
if ( get_tag_value( message ) ) {
result = message;
} else {
struct pso_pointer x_frame =
inc_ref( make_frame( 2, frame_pointer, message,
( c_nilp( location )
? nil : make_cons( frame_pointer,
make_cons( frame_pointer,
privileged_keyword_location,
location ),
nil ) ),
cause ) );
result = push_local(frame_pointer, make_exception(x_frame));
}
result = push_local( frame_pointer, make_exception( x_frame ) );
}
return result;
return result;
}
/**
@ -162,4 +162,3 @@ throw_exception( struct pso_pointer location,
struct pso_pointer frame_pointer ) {
return throw_exception_with_cause( location, payload, nil, frame_pointer );
}