X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-socket.scm;h=dd542935555cfb61e62d91cf27b8843998817cda;hb=32a34dcef0c0041c6d62677487a380b5c8b85712;hp=abaaa08ec9142fe65e35ad7ef24dc3dd30c20173;hpb=f41973ff763d5972a85995b6d40c864281ec6714;p=lilypond.git

diff --git a/scm/framework-socket.scm b/scm/framework-socket.scm
index abaaa08ec9..dd54293555 100644
--- a/scm/framework-socket.scm
+++ b/scm/framework-socket.scm
@@ -36,7 +36,7 @@
 
 (define-public (output-framework channel book scopes fields)
   (let* ((ctor-arg (if (string? channel)
-		       (open-output-file (format "~a.socket" channel))
+		       (open-output-file (format #f "~a.socket" channel))
 		       channel))
 	 (outputter (ly:make-paper-outputter
 		     ctor-arg
@@ -48,27 +48,27 @@
 		(let* ((system-stencil (paper-system-stencil x))
 		       (x-extent (ly:stencil-extent system-stencil X))
 		       (y-extent (ly:stencil-extent system-stencil Y)))
-		  (format ctor-arg (ly:format "system ~4l ~4l ~4l ~4l\n"
-			  (car x-extent) (car y-extent) (cdr x-extent) (cdr y-extent)))
+		  (display (ly:format "system ~4l ~4l ~4l ~4l\n"
+			  (car x-extent) (car y-extent) (cdr x-extent) (cdr y-extent)) ctor-arg)
 		  (ly:outputter-dump-stencil outputter system-stencil)))
 	      systems)))
 
 (define-public (output-classic-framework channel book scopes fields)
   (let* ((ctor-arg (if (string? channel)
-		       (open-output-file (format "~a.socket" channel))
+		       (open-output-file (format #f "~a.socket" channel))
 		       channel))
 	 (outputter (ly:make-paper-outputter
 		     ctor-arg
 		     'socket))
 	 (systems (ly:paper-book-systems book))
 	 (paper (ly:paper-book-paper book)))
-    (format ctor-arg (ly:format "paper ~4l\n" (get-page-dimensions paper)))
+    (display (ly:format "paper ~4l\n" (get-page-dimensions paper)) ctor-arg)
     (for-each (lambda (x)
 		(let* ((system-stencil (paper-system-stencil x))
 		       (x-extent (ly:stencil-extent system-stencil X))
 		       (y-extent (ly:stencil-extent system-stencil Y)))
-		  (format ctor-arg (ly:format "system ~4l ~4l ~4l ~4l\n"
-			  (car x-extent) (car y-extent) (cdr x-extent) (cdr y-extent)))
+		  (display (ly:format "system ~4l ~4l ~4l ~4l\n"
+			  (car x-extent) (car y-extent) (cdr x-extent) (cdr y-extent)) ctor-arg)
 		  (ly:outputter-dump-stencil outputter system-stencil)))
 	      systems)))