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)
|
if (x->type == TPAIR)
|
||||||
{
|
{
|
||||||
x = x->car;
|
x = x->car;
|
||||||
assert_msg (x->type == TNUMBER, "x->type == TNUMBER");
|
assert_number ("make-hash-table size", x);
|
||||||
size = x->value;
|
size = x->value;
|
||||||
}
|
}
|
||||||
return make_hash_table_ (size);
|
return make_hash_table_ (size);
|
||||||
|
|
Loading…
Reference in New Issue