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

Got dump working, to try to investigate the assoc bug. Much better

Browse source 
dump output, but `assoc` still doesn't work for read symbols, and
we now have a segfault on exit.
This commit is contained in:
Simon Brooke 2026-05-06 12:23:46 +01:00
parent cf655e8020
commit c29a95b00d
10 changed files with 284 additions and 411 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/io/read.c
View file

@ -154,6 +154,7 @@ struct pso_pointer read_number( struct pso_pointer frame_pointer ) {
} // else exception?
#ifdef DEBUG
debug_printf( DEBUG_IO, 0, L"\nRead number %ld\n", value );
debug_dump_object(result, DEBUG_IO, 1);
#endif
return result;
@ -189,12 +190,8 @@ struct pso_pointer read_symbol( struct pso_pointer frame_pointer ) {
debug_print( L"\nRead symbol `", DEBUG_IO, 0 );
debug_print_object( result, DEBUG_IO, 0);
debug_print( L"`\n\t", DEBUG_IO, 0);
for ( struct pso_pointer cursor = result; !c_nilp(cursor); cursor = c_cdr(cursor)) {
wint_t c = pointer_to_object(cursor)->payload.string.character;
debug_printf( DEBUG_IO, 0, L"[Character %lc (%d)]", c, c);
}
debug_println(DEBUG_IO);
#endif
debug_dump_object(result, DEBUG_IO, 1);
#endif
return result;
}
@ -286,7 +283,8 @@ struct pso_pointer read( struct pso_pointer frame_pointer ) {
#ifdef DEBUG
debug_print( L"Read expression: `", DEBUG_IO, 0 );
debug_print_object( result, DEBUG_IO, 0 );
debug_print( L"`\n", DEBUG_IO, 0 );
debug_print( L"`\n", DEBUG_IO, 0 );
debug_dump_object(result, DEBUG_IO, 1);
#endif
return result;