Another small fix. Previous fix resulted in 4 more tests failing (now 11);

this fix does not change that, and the regressions must be resolved.
This commit is contained in:
Simon Brooke 2026-02-13 13:07:43 +00:00
parent f6d7fcea1e
commit 3659103dd7

View file

@ -306,11 +306,11 @@ struct cons_pointer make_string_like_thing( wint_t c, struct cons_pointer tail,
struct cons_space_object *cell = &pointer2cell( pointer ); struct cons_space_object *cell = &pointer2cell( pointer );
cell->payload.string.character = c; cell->payload.string.character = c;
cell->payload.string.cdr.page = tail.page; cell->payload.string.cdr = tail;
/* \todo There's a problem here. Sometimes the offsets on /* \todo There's a problem here. Sometimes the offsets on
* strings are quite massively off. Fix is probably * strings are quite massively off. Fix is probably
* cell->payload.string.cdr = tail */ * cell->payload.string.cdr = tail */
cell->payload.string.cdr.offset = tail.offset; //cell->payload.string.cdr.offset = tail.offset;
cell->payload.string.hash = calculate_hash( c, tail ); cell->payload.string.hash = calculate_hash( c, tail );
} else { } else {