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

Another inconclusive session: still nothing works, still making progress.

Browse source
This commit is contained in:
Simon Brooke 2026-04-22 18:16:00 +01:00
parent ef59563e25
commit eed4711fee
35 changed files with 317 additions and 232 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/ops/eq.c
View file

@ -66,7 +66,7 @@ bool c_equal( struct pso_pointer a, struct pso_pointer b ) {
case KEYTV:
case STRINGTV:
case SYMBOLTV:
while ( result && !nilp( a ) && !nilp( b ) ) {
while ( result && !c_nilp( a ) && !c_nilp( b ) ) {
if ( pointer_to_object( a )->payload.string.character ==
pointer_to_object( b )->payload.string.character ) {
a = c_cdr( a );
@ -75,7 +75,7 @@ bool c_equal( struct pso_pointer a, struct pso_pointer b ) {
result = false;
}
}
result = result && nilp( a ) && nilp( b );
result = result && c_nilp( a ) && c_nilp( b );
break;
default:
result = false;
@ -109,7 +109,7 @@ struct pso_pointer eq(
if ( frame->payload.stack_frame.args > 1 ) {
for ( int b = 1;
( truep( result ) ) && ( b < frame->payload.stack_frame.args );
( c_truep( result ) ) && ( b < frame->payload.stack_frame.args );
b++ ) {
result =
c_eq( fetch_arg( frame, 0 ), fetch_arg( frame, b ) ) ? t : nil;