From: David Kastrup <dak@gnu.org>
Date: Fri, 4 Mar 2016 11:36:13 +0000 (+0100)
Subject: Issue 4798/1: Make alist routines use equal? key comparisons
X-Git-Tag: release/2.19.39-1~5^2~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ec91a9a4bdd186d7af88381a10a2923ac949d33c;p=lilypond.git

Issue 4798/1: Make alist routines use equal? key comparisons

This affects evict_from_alist and nested_property_alist
---

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),