Merge branch 'master' of git://git.savannah.gnu.org/lilypond.git

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

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 310db4f58b45b6ba1b56ec7d3c97bdff9c448f15..28e22f72a3c3ba3733d290b443e8b1a47d804a91 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -70,9 +70,9 @@
              -1))
      (name (assoc-get 'name (ly:grob-property grob 'meta))))
 
-    (apply format
-          (append (list "cause ~a \"~a\" ~a ~a ~a ~a\n" tag name)
-                  (grob-bbox grob offset)))))
+    (apply format #f
+          "cause ~a \"~a\" ~a ~a ~a ~a\n" tag name
+          (grob-bbox grob offset))))
 
 (define (named-glyph font glyph)
   (format #f "glyphshow ~a \"~a\" ~a \"~a\""