projects
/
lilypond.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
edb75f0
)
Issue 4798/1: Make alist routines use equal? key comparisons
author
David Kastrup
<dak@gnu.org>
Fri, 4 Mar 2016 11:36:13 +0000
(12:36 +0100)
committer
David Kastrup
<dak@gnu.org>
Sat, 19 Mar 2016 13:20:03 +0000
(14:20 +0100)
This affects evict_from_alist and nested_property_alist
lily/nested-property.cc
patch
|
blob
|
history
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),