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

8
src/c/io/io.c
View file

@ -436,7 +436,7 @@ struct pso_pointer add_meta_string( struct pso_pointer meta, char32_t *key,
return
make_cons( make_cons
( c_string_to_lisp_keyword( key ),
( c_string_to_lisp_keyword( frame_pointer, key ),
c_string_to_lisp_string( buffer ) ), meta );
}
@ -681,7 +681,7 @@ struct pso_pointer lisp_read_char( struct pso_pointer frame_pointer,
struct pso_pointer stream_pointer = fetch_arg( frame, 0 );
if ( readp( stream_pointer ) ) {
result =
make_string( url_fgetwc( stream_get_url_file( stream_pointer ) ),
make_string( frame_pointer, url_fgetwc( stream_get_url_file( stream_pointer ) ),
nil );
}
@ -709,7 +709,7 @@ struct pso_pointer lisp_slurp( struct pso_pointer frame_pointer,
if ( readp( fetch_arg( frame, 0 ) ) ) {
URL_FILE *stream = stream_get_url_file( fetch_arg( frame, 0 ) );
struct pso_pointer cursor = make_string( url_fgetwc( stream ), nil );
struct pso_pointer cursor = make_string( frame_pointer, url_fgetwc( stream ), nil );
result = cursor;
for ( wint_t c = url_fgetwc( stream ); !url_feof( stream ) && c != 0;
@ -721,7 +721,7 @@ struct pso_pointer lisp_slurp( struct pso_pointer frame_pointer,
debug_println( DEBUG_IO );
struct pso2 *cell = pointer_to_object( cursor );
cursor = make_string( ( char32_t ) c, nil );
cursor = make_string( frame_pointer, ( char32_t ) c, nil );
cell->payload.string.cdr = cursor;
}
}