Add warnings for invalid 'path styles.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 54ba874d00d5e7efc24b827a557ffc07ff29d404..16f62012d9846a3ca7e5690c76b0004e7056c037 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -308,8 +308,16 @@
                (convert-path-exps (drop rest arity))))
        '()))
 
-  (let ((cap-numeric (case cap ((butt) 0) ((round) 1) ((square) 2)))
-       (join-numeric (case join ((miter) 0) ((round) 1) ((bevel) 2))))
+  (let ((cap-numeric (case cap ((butt) 0) ((round) 1) ((square) 2)
+                      (else (begin
+                              (ly:warning (_ "unknown line-cap-style: ~S")
+                                          (symbol->string cap))
+                              1))))
+       (join-numeric (case join ((miter) 0) ((round) 1) ((bevel) 2)
+                       (else (begin
+                               (ly:warning (_ "unknown line-join-style: ~S")
+                                           (symbol->string join))
+                               1)))))
     (ly:format
      "gsave currentpoint translate
 ~a setlinecap ~a setlinejoin ~a setlinewidth