release: 1.5.25

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 2cf476fbbf587ff8c7ffccd1ac4de85917e95b71..a42715549180c18e07902fbcd6b479572fe0a00a 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -22,7 +22,6 @@
 #include "direction.hh"
 #include "offset.hh"
 #include "interval.hh"
-#include "pitch.hh"
 
 SCM
 ly_last (SCM list)
@@ -520,23 +519,6 @@ ly_assoc_chain (SCM key, SCM achain)
     return SCM_BOOL_F;
 }
 
-/* looks the key up in the cdrs of the alist-keys
-   - ignoring the car and ignoring non-pair keys.
-   Returns first match found. */
-SCM
-ly_assoc_cdr (SCM key, SCM alist)
-{
-  if (gh_pair_p (alist)) {
-    SCM trykey = ly_caar(alist);
-    if(gh_pair_p(trykey) && to_boolean(scm_equal_p(key,ly_cdr(trykey))))
-      return ly_car(alist);
-    else
-      return ly_assoc_cdr (key, ly_cdr (alist));
-  }
-  else
-    return SCM_BOOL_F;
-}
-
 /*
   LIST has the form "sym1 sym2 sym3" 
  */