From: David Kastrup <dak@gnu.org>
Date: Thu, 24 Sep 2015 12:36:08 +0000 (+0200)
Subject: Issue 4620/1: Remove unused function chain-grob-member-functions
X-Git-Tag: release/2.19.29-1~39
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;ds=sidebyside;h=9d81de1232c3106d8a02b49ad4006f2ce9a4b82d;p=lilypond.git

Issue 4620/1: Remove unused function chain-grob-member-functions
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 8a5cae2b23..9b885eb9a2 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -967,13 +967,6 @@ and duration-log @var{log}."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 
-(define-public (chain-grob-member-functions grob value . funcs)
-  (for-each
-   (lambda (func)
-     (set! value (func grob value)))
-   funcs)
-
-  value)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;