complete rewrite of multiplicity. This fixes 16th

[lilypond.git] / scm / slur.scm

diff --git a/scm/slur.scm b/scm/slur.scm
index 6cdeeb1a93ec53802af124c95b91919487ce0b39..51445d3a54a00e467286902e2ea0e300ec44090f 100644 (file)
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -69,7 +69,7 @@
                       (let ((beaming (ly-get-grob-property stem 'beaming)))
                         ;; (display "beaming (") (display dir) (display "): ") (write beaming) (newline)
                         (if (pair? beaming)
-                            (>= (if (= dir -1) (cdr beaming) (car beaming))
+                            (>= (length (if (= dir -1) (cdr beaming) (car beaming)))
                                1)
                             #f))))))
         'stem)