fix dashed-slur, and test for it in backend-exercise.ly

diff --git a/input/regression/backend-excercise.ly b/input/regression/backend-excercise.ly
index 5c623f978ba6fd7da3efdbff64f281f74fcd7ee0..f709dabb7bdf899dda3d2f62511b7ad93bc85e7c 100644 (file)
--- a/input/regression/backend-excercise.ly
+++ b/input/regression/backend-excercise.ly
@@ -23,7 +23,8 @@
       \makeClusters { <g a>8 <e a> <g a>4 }
       
       \override Glissando #'style = #'zigzag
-      f2 \glissando f'
+      \slurDashed
+      f2( \glissando f')
       \setEasyHeads
       f e 
     }

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7a2972525b8a6620081862c89010924c2b4d1830..594acedea78f8f4c04fe997cfdde5ee75e20c940 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -122,7 +122,7 @@
 (define (dashed-slur thick on off l)
   (ly:format "~l ~4f [ ~4f ~4f ] 0 draw_dashed_slur"
          (let ((control-points (append (cddr l) (list (car l) (cadr l)))))
-           (map number-pair->string4 control-points) " ")
+           (map number-pair->string4 control-points))
          thick
          on
          off))