(mangle_cxx_identifier): new

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

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 20a16b3bfff361c26da8fa991a3f1f761620f4fd..df37302650842f7efe4a0e40799d06af8aa416c7 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -54,7 +54,7 @@
 
     (cond
      ((ly:music? cause) cause)
-     ((ly:grob? cause) (music-cause cause))
+;     ((ly:grob? cause) (music-cause cause))
      (else
       #f))))
 
@@ -113,3 +113,12 @@
          (escape-string string)
          ))
 
+
+(define (bezier-sandwich lst thick)
+  (format
+   #f
+   "bezier_sandwich ~a [~a]"
+   thick
+   (string-append 
+    (string-join (map (lambda (x) (format "(~a,~a)" (car x) (cdr x)))
+                     lst) ","))))