hash-table: use erro iso assert...
This commit is contained in:
parent
197416e285
commit
166c93c458
|
@ -210,7 +210,7 @@ make_hash_table (struct scm *x) /*:((arity . n)) */
|
|||
if (x->type == TPAIR)
|
||||
{
|
||||
x = x->car;
|
||||
assert_msg (x->type == TNUMBER, "x->type == TNUMBER");
|
||||
assert_number ("make-hash-table size", x);
|
||||
size = x->value;
|
||||
}
|
||||
return make_hash_table_ (size);
|
||||
|
|
Loading…
Reference in New Issue