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

9
src/c/ops/list_ops.c
View file

@ -12,18 +12,21 @@
#include "memory/pso2.h"
#include "memory/pso4.h"
#include "ops/stack_ops.h"
#include "payloads/stack.h"
#include "ops/truth.h"
struct pso_pointer length( struct pso_pointer frame_pointer) {
struct pso_pointer list = fetch_arg( frame_pointer, 0);
struct pso4* frame = pointer_to_pso4(frame_pointer);
struct pso_pointer list = fetch_arg( frame, 0);
int count = 0;
for ( struct pso_pointer cursor = list; !nilp( cursor);
for ( struct pso_pointer cursor = list; !c_nilp( cursor);
cursor = cdr( make_frame( 1, frame_pointer, list))) {
count++;
}
return make_integer( pointer_to_pso4(frame_pointer), count);
return make_integer( frame_pointer, count);
}