From a84b92c51137e92b1333d6fd36650e0de22c1b86 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 23 Jan 2007 15:04:07 +0100
Subject: [PATCH] fix dashed-slur, and test for it in backend-exercise.ly

---
 input/regression/backend-excercise.ly | 3 ++-
 scm/output-ps.scm                     | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/input/regression/backend-excercise.ly b/input/regression/backend-excercise.ly
index 5c623f978b..f709dabb7b 100644
--- 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 7a2972525b..594acedea7 100644
--- 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))
-- 
2.39.2