Allow "closepath" in 'path stencil expressions

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

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 6076bdaa72ac0b981d986664c6671d4951295a40..1963728eba156bcba667f31dbccb1bdc0e9f5a96 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -414,6 +414,7 @@
           (arity
             (cond ((memq head '(rmoveto rlineto lineto moveto)) 2)
                   ((memq head '(rcurveto curveto)) 6)
+                  ((eq? head 'closepath) 0)
                   (else 1)))
           (args (take rest arity))
           (svg-head (assoc-get head
@@ -422,7 +423,8 @@
                                  (curveto . C)
                                  (moveto . M)
                                  (lineto . L)
-                                 (rlineto . l))
+                                 (rlineto . l)
+                                 (closepath . z))
                                "")))
 
          (cons (format "~a~a"