fix roundfilledbox definition

[lilypond.git] / scm / pdf.scm

diff --git a/scm/pdf.scm b/scm/pdf.scm
index 684a986fbf1a220dbba3adccaa77ebba034d2df2..8c2f1722f7b439c8cc499342aa1713e814224714 100644 (file)
--- a/scm/pdf.scm
+++ b/scm/pdf.scm
@@ -151,7 +151,7 @@
 ;;                  (ly-number->string (radius))
 ;;                  " ??? "))) ;; how to draw a circle in PDF?
 ;;
-;;(define (roundfilledbox x width y height blotdiam)
+;;(define (roundfilledbox x y width height blotdiam)
 ;;  (string-append " "
 ;;    (dot x y blotdiam)
 ;;    (dot (+ x width) y blotdiam)
@@ -163,7 +163,7 @@
 ;;
 ;; WORKAROUND:
 ;;
-(define (roundfilledbox breadth width depth height) 
+(define (roundfilledbox breadth width depth height blot) 
   (filledbox breadth width depth height))
 ;;