From 166c93c45862b4b4be4567e1eab2d0a49691ba59 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 10 Nov 2019 13:55:35 +0100 Subject: [PATCH] hash-table: use erro iso assert... --- src/hash.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/hash.c b/src/hash.c index 12ca0f79..0e206a3e 100644 --- a/src/hash.c +++ b/src/hash.c @@ -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);