Mainly unit tests. 39/45 currently pass; the failures are all in bignum arithmetic and in deallocation.
This commit is contained in:
parent
e41ae1aa8b
commit
e489d02069
21 changed files with 206 additions and 100 deletions
|
|
@ -102,7 +102,7 @@ void print_map( URL_FILE * output, struct cons_pointer map ) {
|
|||
print( output, hashmap_get( map, key ) );
|
||||
|
||||
if ( !nilp( c_cdr( ks ) ) ) {
|
||||
url_fputws( L" ", output );
|
||||
url_fputws( L", ", output );
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -196,7 +196,7 @@ struct cons_pointer hashmap_put_all( struct cons_pointer mapp,
|
|||
assoc = c_cdr( assoc);
|
||||
}
|
||||
} else if (hashmapp( assoc)) {
|
||||
for (struct cons_pointer keys = hashmap_keys( mapp); !nilp( keys);
|
||||
for (struct cons_pointer keys = hashmap_keys( assoc); !nilp( keys);
|
||||
keys = c_cdr( keys)) {
|
||||
struct cons_pointer key = c_car( keys);
|
||||
hashmap_put( mapp, key, hashmap_get( assoc, key));
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue