mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

'hash' behaves like 'hashq' for tc7s without an 'equal?' implementation.

Browse source 
Fixes <https://bugs.gnu.org/39634>.

* libguile/hash.c (scm_raw_ihash): Add cases for scm_tc7 values that
were not explicitly listed.
This commit is contained in:
Ludovic Courtès 2020-03-06 17:15:45 +01:00
parent 4cfe0c1014
commit c5d3b45c9f
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/hash.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-1997,2000-2001,2003-2004,2006,2008-2015,2017-2018
/* Copyright 1995-1997,2000-2001,2003-2004,2006,2008-2015,2017-2018,2020
Free Software Foundation, Inc.
This file is part of Guile.
@ -331,6 +331,22 @@ scm_raw_ihash (SCM obj, size_t depth)
h ^= scm_raw_ihash (scm_syntax_module (obj), depth);
return h;
}
/* The following tc7s have no 'equal?' implementation. Thus, just
fall back to 'hashq'. */
case scm_tc7_variable:
case scm_tc7_hashtable:
case scm_tc7_fluid:
case scm_tc7_dynamic_state:
case scm_tc7_frame:
case scm_tc7_atomic_box:
case scm_tc7_program:
case scm_tc7_vm_cont:
case scm_tc7_weak_set:
case scm_tc7_weak_table:
case scm_tc7_port:
return scm_raw_ihashq (SCM_UNPACK (obj));
case scm_tcs_cons_imcar:
case scm_tcs_cons_nimcar:
if (depth)