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 6ce5234fc33178df530d653cde34d5d9d7278fad..ba43ae62f140098989e1f96761683dc4f9658368 100644 (file)
--- 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),