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

Much more progress, still doesn't compile.

Browse source
This commit is contained in:
Simon Brooke 2026-03-30 09:35:34 +01:00
parent 1ce9fbda77
commit 60921be3d4
25 changed files with 326 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -10,8 +10,10 @@
*/
#include "memory/memory.h"
#include "memory/node.h"
#include "memory/pointer.h"
#include "memory/stack.h"
#include "payloads/stack.h"
#include "ops/truth.h"
/**
* @brief Function; do these two pointers point to the same object?
@ -41,14 +43,14 @@ bool eq( struct pso_pointer a, struct pso_pointer b ) {
* @param env my environment (ignored).
* @return `t` if all args are pointers to the same object, else `nil`;
*/
struct pso_pointer lisp_eq( struct stack_frame *frame,
struct pso_pointer lisp_eq( struct pso4 *frame,
struct pso_pointer frame_pointer,
struct pso_pointer env ) {
struct pso_pointer result = t;
if ( frame->args > 1 ) {
for ( int b = 1; ( truep( result ) ) && ( b < frame->args ); b++ ) {
result = eq( frame->arg[0], fetch_arg( frame, b ) ) ? t : nil;
result = eq( fetch_arg(frame, 0), fetch_arg( frame, b ) ) ? t : nil;
}
}