* input/regression/rehearsal-mark-number.ly: new file.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index bf42f7e22c17e6e50e460ecb29dda9f788d47c79..801d31185a8160ea90708e703453a55b4901f65d 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -35,9 +35,9 @@
 
 
 ;; Interface functions
-(define (beam width slope thick)
+(define (beam width slope thick blot)
   (string-append
-   (numbers->string (list slope width thick)) " draw_beam" ))
+   (numbers->string (list slope width thick blot)) " draw_beam" ))
 
 ;; two beziers
 (define (bezier-sandwich l thick)