Properly implement fromproperty markup handing in the pdftitle header field

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

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 310db4f58b45b6ba1b56ec7d3c97bdff9c448f15..352ff2989dfbbed5ee8d02245d48d94972e322fd 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -48,16 +48,6 @@
 ;;; stencil commands
 ;;;
 
-(define (bezier-sandwich lst thick)
-  (format #f "bezier_sandwich ~a [~a]"
-         thick
-         (string-append
-           (string-join (map
-                          (lambda (x)
-                            (format #f "(~a,~a)" (car x) (cdr x)))
-                          lst)
-                        ","))))
-
 (define (draw-line thick x1 y1 x2 y2)
   (format #f "drawline ~a ~a ~a ~a ~a"
          thick x1 y2 x2 y2))
@@ -70,9 +60,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\""