hash-table: use erro iso assert...
This commit is contained in:
parent
23ba160476
commit
bd7353298e
|
@ -211,7 +211,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