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

Very minor fixes/

Browse source
This commit is contained in:
Simon Brooke 2026-03-01 20:37:16 +00:00
parent 3a1f64d7ff
commit 72a8bc09e0
3 changed files with 4 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/documentation.lisp
View file

@ -11,10 +11,10 @@
(set! member? (lambda
(item collection)
"`(member item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`."
;; (print (list "In member? item is " item "; collection is " collection))
(print (list "In member? item is " item "; collection is " collection))
;; (println)
(cond
((= nil collection) nil)
((= 0 (count collection)) nil)
((= item (car collection)) t)
(t (member? item (cdr collection))))))

2
src/init.c
View file

@ -94,7 +94,7 @@ void maybe_bind_init_symbols( ) {
privileged_keyword_location = c_string_to_lisp_keyword( L"location" );
}
if ( nilp( privileged_keyword_payload ) ) {
privileged_keyword_location = c_string_to_lisp_keyword( L"payload" );
privileged_keyword_payload = c_string_to_lisp_keyword( L"payload" );
}
}

7
src/io/print.c
View file

@ -348,16 +348,9 @@ lisp_println( struct stack_frame *frame, struct cons_pointer frame_pointer,
if ( writep( out_stream ) ) {
output = pointer2cell( out_stream ).payload.stream.stream;
inc_ref( out_stream );
} else {
output = file_to_url_file( stderr );
}
println( output );
if ( writep( out_stream ) ) {
dec_ref( out_stream );
} else {
free( output );
}