From: Mike Solomon <mike@apollinemike.com>
Date: Tue, 4 Oct 2011 13:35:35 +0000 (+0200)
Subject: Fixes the handling of unpure-pure containers in call-pure-function
X-Git-Tag: release/2.15.14-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a7b1a6fa341333d40f4a38bacc372d8717545869;p=lilypond.git

Fixes the handling of unpure-pure containers in call-pure-function
---

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index db39b6889c..05ba013e27 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2701,7 +2701,7 @@
           (ly:eval-simple-closure (car args) unpure start end)
           (if (not (procedure? unpure))
               unpure
-              (apply (cdr pure)
+              (apply unpure
                      (append
                        (list (car args) start end)
                        (cdr args))))))