Rewriting intern. This is badly broken, but I think on the road to better.
This commit is contained in:
parent
145a0fe5a7
commit
72548097cf
7 changed files with 103 additions and 41 deletions
|
|
@ -375,8 +375,7 @@ bool equal( struct cons_pointer a, struct cons_pointer b ) {
|
|||
memset( a_buff, 0, sizeof( a_buff ) );
|
||||
memset( b_buff, 0, sizeof( b_buff ) );
|
||||
|
||||
for ( ;
|
||||
( i < ( STRING_SHIPYARD_SIZE - 1 ) ) && !nilp( a )
|
||||
for ( ; ( i < ( STRING_SHIPYARD_SIZE - 1 ) ) && !nilp( a )
|
||||
&& !nilp( b ); i++ ) {
|
||||
a_buff[i] = cell_a->payload.string.character;
|
||||
a = c_cdr( a );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue