diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-07-23 08:29:21 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-07-23 08:29:21 -0400 |
commit | 29a7d73d195761e8309a4fe23872888758436d1e (patch) | |
tree | 23297071f79f73eb33158805c47153272d7f2052 /src/fns.c | |
parent | 6bd817ee66e7a5759ef6c5a8c12d57b5ec59043c (diff) | |
download | emacs-29a7d73d195761e8309a4fe23872888758436d1e.tar.gz |
* src/fns.c (hashfn_user_defined): Make sure we always return a fixnum.
Diffstat (limited to 'src/fns.c')
-rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fns.c b/src/fns.c index d28d437df9c..f4f3b95ac64 100644 --- a/src/fns.c +++ b/src/fns.c @@ -4023,7 +4023,7 @@ hashfn_user_defined (Lisp_Object key, struct Lisp_Hash_Table *h) { Lisp_Object args[] = { h->test.user_hash_function, key }; Lisp_Object hash = hash_table_user_defined_call (ARRAYELTS (args), args, h); - return BIGNUMP (hash) ? make_fixnum (sxhash_bignum (XBIGNUM (hash))) : hash; + return FIXNUMP (hash) ? hash : make_fixnum (sxhash (hash, 0)); } struct hash_table_test const |