Add assv_tail function

diff --git a/lily/include/context.hh b/lily/include/context.hh
index ab89593d1bbad317b38de9e5b58a865224bc085b..130a304f935ea694c71d3f9d773ad1aed98e365d 100644 (file)
--- a/lily/include/context.hh
+++ b/lily/include/context.hh
@@ -197,6 +197,7 @@ SCM nested_property (SCM alist, SCM prop_path, SCM fallback = SCM_EOL);
 SCM nested_create_alist (SCM prop_path, SCM value);
 SCM partial_list_copy (SCM alist, SCM tail, SCM newtail);
 SCM assq_tail (SCM key, SCM alist, SCM alist_end);
+SCM assv_tail (SCM key, SCM alist, SCM alist_end);
 SCM assoc_tail (SCM key, SCM alist, SCM alist_end);
 SCM evict_from_alist (SCM, SCM, SCM);
 SCM nalist_to_alist (SCM nalist, int nested);

diff --git a/lily/nested-property.cc b/lily/nested-property.cc
index 27adf55dbe27a22885196944188dc6bc39b88959..d45f395b304388dba633411a53c339b2005a9e3f 100644 (file)
--- a/lily/nested-property.cc
+++ b/lily/nested-property.cc
@@ -37,6 +37,17 @@ assq_tail (SCM key, SCM alist, SCM based_on = SCM_EOL)
   return SCM_BOOL_F;
 }
 
+SCM
+assv_tail (SCM key, SCM alist, SCM based_on = SCM_EOL)
+{
+  for (SCM p = alist; !scm_is_eq (p, based_on); p = scm_cdr (p))
+    {
+      if (scm_is_true (scm_eqv_p (scm_caar (p), key)))
+        return p;
+    }
+  return SCM_BOOL_F;
+}
+
 SCM
 assoc_tail (SCM key, SCM alist, SCM based_on = SCM_EOL)
 {