X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-socket.scm;h=8068e34cce6f3998f699e7f167b9bb07c52fdc04;hb=7b3cd88d662454aac42797912d2dc0b7b36700fe;hp=a2a000e1e22fc988e056e0c68ecf2082d6dfe955;hpb=260073be07f49a5f6f3be8df2af52873843eec60;p=lilypond.git

diff --git a/scm/framework-socket.scm b/scm/framework-socket.scm
index a2a000e1e2..8068e34cce 100644
--- a/scm/framework-socket.scm
+++ b/scm/framework-socket.scm
@@ -4,6 +4,7 @@
 
 (use-modules (ice-9 regex)
 	     (ice-9 string-fun)
+	     (scm paper-system)
 	     (ice-9 format)
 	     (guile)
 	     (srfi srfi-1)
@@ -13,19 +14,18 @@
 
 (define-public (output-framework channel book scopes fields )
   (let*
-      (
-       (ctor-arg (if (string? channel)
+      ((ctor-arg (if (string? channel)
 		     (open-output-file (format "~a.socket" channel))
 		     channel))
        (outputter (ly:make-paper-outputter
 		   ctor-arg
-		   "socket")))
-
-    (for-each
-     (lambda (page)
-       (ly:outputter-dump-stencil outputter page))
-     (ly:paper-book-pages book))))
+		   "socket"))
+       (systems (ly:paper-book-systems book)))
 
+    (if (pair? systems)
+	(ly:outputter-dump-stencil outputter
+				   (paper-system-stencil (car systems))))
+    ))
 
 (define-public output-classic-framework output-framework)