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

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

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))