X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-socket.scm;h=352ff2989dfbbed5ee8d02245d48d94972e322fd;hb=6a131cd844245b4c3a632f531d8bcd73dcf160cd;hp=310db4f58b45b6ba1b56ec7d3c97bdff9c448f15;hpb=fb0b572f923f29e02bc9909a4cf5cc674e5315d5;p=lilypond.git

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