*** empty log message ***

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

diff --git a/scm/output-pdf.scm b/scm/output-pdf.scm
index 8ee7363c4135e9964d4c7ae3532c27b42bba0b12..6cc3a1f75176e570d7e237fc441495cb0b726ea9 100644 (file)
--- a/scm/output-pdf.scm
+++ b/scm/output-pdf.scm
@@ -34,7 +34,7 @@
   (moveto (+ x (car currentpoint)) (+ y (cdr currentpoint))))
 (define (lineto x y)
   (set! currentpoint (cons x y))
-  (string-append (showcp) "lst "))
+  (string-append (showcp) "l "))
 (define (lineto-pair pair)
   (lineto (car pair) (cdr pair)))
 (define (rlineto x y)