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

More code, closer to working, still builds.

Browse source
This commit is contained in:
Simon Brooke 2026-04-15 22:47:44 +01:00
parent c9f50572ab
commit f751fc8a09
14 changed files with 138 additions and 133 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -91,14 +91,15 @@ bool c_equal( struct pso_pointer a, struct pso_pointer b ) {
*
* @return `t` if all args are pointers to the same object, else `nil`;
*/
struct pso_pointer eq(
struct pso_pointer eq(
#ifndef MANAGED_POINTER_ONLY
struct pso4 * frame,
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer, struct pso_pointer env) {
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
struct pso_pointer result = t;
@ -130,14 +131,15 @@ struct pso_pointer eq(
*
* @return `t` if all args are pointers to the same object, else `nil`;
*/
struct pso_pointer equal(
struct pso_pointer equal(
#ifndef MANAGED_POINTER_ONLY
struct pso4 * frame,
struct pso4 *frame,
#endif
struct pso_pointer frame_pointer, struct pso_pointer env) {
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
#ifdef MANAGED_POINTER_ONLY
struct pso4 *frame = pointer_to_pso4( frame_pointer );
#endif
return c_equal( fetch_arg( frame, 0), fetch_arg( frame, 1)) ? t : nil;
return c_equal( fetch_arg( frame, 0 ), fetch_arg( frame, 1 ) ) ? t : nil;
}