From 8e401c19d39eb6adead6505d0daf28c0b3ba227d Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Tue, 26 Jul 2011 10:15:05 +0200 Subject: [PATCH] output-socket.scm: Issue 1780 oversight (format #f ... --- scm/output-socket.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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\"" -- 2.39.5