From 6d380c4cb5157047e2a3179618536a07a4d844ce Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 13 Nov 2019 08:16:04 +0100 Subject: [PATCH] core: Allow non-string hash keys. This merely allows adding non-string keys to a hash table and puts them non-string keys in bucket 0. Efficiency is lost. TODO: calculate a proper hash. * src/hash.c (hash_): Allow non-string keys in bucket 0. --- src/hash.c | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/hash.c b/src/hash.c index a7977ec6..d9d9e08e 100644 --- a/src/hash.c +++ b/src/hash.c @@ -46,13 +46,9 @@ hashq_ (struct scm *x, long size) int hash_ (struct scm *x, long size) { - if (x->type != TSTRING) - { - eputs ("hash_ failed, not a string:"); - display_error_ (x); - assert_msg (0, "0"); - } - return hash_cstring (cell_bytes (x->string), size); + if (x->type == TSTRING) + return hash_cstring (cell_bytes (x->string), size); + return 0; } struct scm *