hash-table: use erro iso assert...

This commit is contained in:
Jan Nieuwenhuizen 2019-11-10 13:55:35 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 23ba160476
commit bd7353298e
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions

View File

@ -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);