Revert "Apply scripts/auxiliar/fixscm.sh"

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

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 28e22f72a3c3ba3733d290b443e8b1a47d804a91..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))