From: David Kastrup <dak@gnu.org>
Date: Tue, 26 Jul 2011 08:15:05 +0000 (+0200)
Subject: output-socket.scm: Issue 1780 oversight (format #f ...
X-Git-Tag: release/2.15.6-1^2~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8e401c19d39eb6adead6505d0daf28c0b3ba227d;p=lilypond.git

output-socket.scm: Issue 1780 oversight (format #f ...
---

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 310db4f58b..28e22f72a3 100644
--- 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\""