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

Work on the 'member?' bug - (issue #8) -- which turns out to be assoc/interned.

Browse source 
Progress has been made, but this is not fixed.
This commit is contained in:
Simon Brooke 2026-03-18 20:44:18 +00:00
parent 7d0ce67373
commit dc5cac0bd8
4 changed files with 52 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/ops/lispops.c
View file

@ -919,17 +919,26 @@ lisp_internedp( struct stack_frame *frame, struct cons_pointer frame_pointer,
struct cons_pointer c_keys( struct cons_pointer store ) {
struct cons_pointer result = NIL;
if ( hashmapp( store ) ) {
result = hashmap_keys( store );
} else if ( consp( store ) ) {
for ( struct cons_pointer c = store; !nilp( c ); c = c_cdr( c ) ) {
result = make_cons( c_car( c ), result );
if ( consp( store ) ) {
for ( struct cons_pointer pair = c_car( store ); !nilp( pair );
pair = c_car( store ) ) {
if ( consp( pair ) ) {
result = make_cons( c_car( pair), result);
} else if ( hashmapp( pair ) ) {
result=c_append( hashmap_keys( pair), result);
}
store = c_cdr( store );
}
} else if ( hashmapp( store ) ) {
result = hashmap_keys( store );
}
return result;
}
struct cons_pointer lisp_keys( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env ) {