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

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

diff --git a/scm/output-pdf.scm b/scm/output-pdf.scm
index 96153a63ccfd41263efa3cbb2c9940ecd45cd6d0..4ca3f8991f919a5d070e9dc87e1095c6982b9768 100644 (file)
--- a/scm/output-pdf.scm
+++ b/scm/output-pdf.scm
@@ -52,7 +52,7 @@
 (define (setgray g) (string-append (ly:number->string g) "g "))
 (define (setlineparams) "1 j 1 J ")
 
-(define (beam width slope thick)
+(define (beam width slope thick blot)
   (let ((ht (* slope width)))
     (string-append (moveto 0 (- (/ thick 2)))
                   (rlineto width ht)