From 74f6b84fd4666545625ac8f5c5f4fa5617c2bfa6 Mon Sep 17 00:00:00 2001 From: Bertrand Bordage Date: Tue, 25 Oct 2011 23:27:08 +0200 Subject: [PATCH 1/1] lily-guile: remove broken and unused function. --- lily/lily-guile.cc | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc index 710fe15126..933bf27170 100644 --- 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) { -- 2.39.2