* scm/output-lib.scm (chain-grob-member-functions): replace

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 0a9dc19fcc873919edfbafa8dc8d96f08ed45522..60896a930467eafbf88c6dec2a14325056cc2918 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -282,3 +282,14 @@ centered, X==1 is at the right, X == -1 is at the left."
      (ly:stencil-translate-axis lp (- (car x-ext) padding) X)
      (ly:stencil-translate-axis rp (+ (cdr x-ext) padding) X))
   ))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; 
+
+(define-public (chain-grob-member-functions grob value . funcs)
+  (for-each
+   (lambda (func)
+     (set! value (func grob value)))
+   funcs)
+
+  value)