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

Making progress on paths!

Browse source
This commit is contained in:
Simon Brooke 2021-08-18 13:40:35 +01:00
parent b6ae110f66
commit 5c6ac7f75d
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
5 changed files with 153 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/ops/equal.c
View file

@ -82,13 +82,15 @@ bool equal( struct cons_pointer a, struct cons_pointer b ) {
* structures can be of indefinite extent. It *must* be done by
* iteration (and even that is problematic) */
result =
cell_a->payload.string.hash == cell_b->payload.string.hash &&
cell_a->payload.string.character ==
cell_b->payload.string.character &&
( equal( cell_a->payload.string.cdr,
cell_b->payload.string.cdr ) ||
( end_of_string( cell_a->payload.string.cdr )
&& end_of_string( cell_b->payload.string.cdr ) ) );
cell_a->payload.string.hash == cell_b->payload.string.hash
&& cell_a->payload.string.character ==
cell_b->payload.string.character
&&
( equal
( cell_a->payload.string.cdr,
cell_b->payload.string.cdr )
|| ( end_of_string( cell_a->payload.string.cdr )
&& end_of_string( cell_b->payload.string.cdr ) ) );
break;
case INTEGERTV:
result =