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.
This commit is contained in:
parent
6d8b4c989a
commit
6d380c4cb5
10
src/hash.c
10
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 *
|
||||
|
|
Loading…
Reference in New Issue