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

It compiles. It runs. Nothing works, but it also doesn't crash. Victory!

Browse source
This commit is contained in:
Simon Brooke 2026-04-23 11:50:30 +01:00
parent 8d2acbeb0f
commit aa0d60bbed
20 changed files with 390 additions and 244 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/ops/assoc.c
View file

@ -108,8 +108,8 @@ struct pso_pointer assoc(
struct pso_pointer key = fetch_arg( frame, 0 );
struct pso_pointer store = or( make_frame( 2, frame_pointer,
fetch_arg( frame, 1 ),
frame->payload.
stack_frame.env ) );
frame->payload.stack_frame.
env ) );
return c_assoc( key, store );
}
@ -130,8 +130,8 @@ struct pso_pointer interned(
struct pso_pointer key = fetch_arg( frame, 0 );
struct pso_pointer store = or( make_frame( 2, frame_pointer,
fetch_arg( frame, 1 ),
frame->payload.
stack_frame.env ) );
frame->payload.stack_frame.
env ) );
return c_interned( key, store );
}
@ -152,8 +152,8 @@ struct pso_pointer internedp(
struct pso_pointer key = fetch_arg( frame, 0 );
struct pso_pointer store = or( make_frame( 2, frame_pointer,
fetch_arg( frame, 1 ),
frame->payload.
stack_frame.env ) );
frame->payload.stack_frame.
env ) );
return c_internedp( key, store ) ? t : nil;
}