(beam): add function.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index e150896a66f760203ae974a6186a68c4c880e64e..ae0d93e306754708f7d717fe8069643ad3d4b560 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -40,7 +40,6 @@
             round-filled-box
             text
             white-text
-            tuplet
             polygon
             draw-line
             no-origin
@@ -98,9 +97,9 @@
    (ly:numbers->string (list slope width thick blot)) " draw_beam" ))
 
 ;; two beziers
-(define (bezier-sandwich l thick)
+(define (bezier-sandwich lst thick)
   (string-append 
-   (string-join (map ly:number-pair->string l) " ")
+   (string-join (map ly:number-pair->string lst) " ")
    " "
    (ly:number->string thick)
    " draw_bezier_sandwich"))