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

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index db39b6889c20a562259c7620a671c8d12ed634dc..05ba013e27579353fb6b53b737ab272cd27b5d48 100644 (file)
--- 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))))))