From ec91a9a4bdd186d7af88381a10a2923ac949d33c Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 4 Mar 2016 12:36:13 +0100 Subject: [PATCH] Issue 4798/1: Make alist routines use equal? key comparisons This affects evict_from_alist and nested_property_alist --- lily/nested-property.cc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lily/nested-property.cc b/lily/nested-property.cc index 6ce5234fc3..ba43ae62f1 100644 --- a/lily/nested-property.cc +++ b/lily/nested-property.cc @@ -125,7 +125,8 @@ nested_property_alist (SCM alist, SCM prop_path, SCM value) SCM rest = scm_cdr (prop_path); if (scm_is_pair (rest)) { - SCM where = assq_tail (key, alist); + SCM where = assoc_tail (key, alist); + if (scm_is_false (where)) return scm_acons (key, nested_create_alist (rest, value), alist); return scm_acons (key, nested_property_alist (scm_cdar (where), -- 2.39.2