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 (set! member? (lambda
(item collection) (item collection)
"`(member item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`." "`(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) ;; (println)
(cond (cond
((= nil collection) nil) ((= 0 (count collection)) nil)
((= item (car collection)) t) ((= item (car collection)) t)
(t (member? item (cdr collection)))))) (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" ); privileged_keyword_location = c_string_to_lisp_keyword( L"location" );
} }
if ( nilp( privileged_keyword_payload ) ) { 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 ) ) { if ( writep( out_stream ) ) {
output = pointer2cell( out_stream ).payload.stream.stream; output = pointer2cell( out_stream ).payload.stream.stream;
inc_ref( out_stream );
} else {
output = file_to_url_file( stderr );
}
println( output ); println( output );
if ( writep( out_stream ) ) {
dec_ref( out_stream );
} else {
free( output ); free( output );
} }