lily-guile: remove broken and unused function.

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 710fe151263ccb20f0efcfa80c796b1d9e333332..933bf271701959739cd5c9fcabbc8212e0a1ac0d 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -326,25 +326,6 @@ ly_scm2offsets (SCM s)
 /*
   ALIST
 */
-
-// This one is used nowhere.
-bool
-ly_is_alist_equal (SCM a, SCM b)
-{
-  if (!scm_is_pair (a) || !scm_is_pair (b))
-    return false;
-  for (SCM s = a; scm_is_pair (s); s = scm_cdr (s))
-    {
-      SCM key = scm_caar (s);
-      SCM val = scm_cdar (s);
-      SCM l = scm_assoc (key, b);
-
-      if (scm_is_false (l) || !ly_is_equal (scm_cdr (l), val))
-        return false;
-    }
-  return true;
-}
-
 SCM
 ly_alist_vals (SCM alist)
 {