patch::: 1.3.116.jcn3

[lilypond.git] / scm / slur.scm

diff --git a/scm/slur.scm b/scm/slur.scm
index 02e4642f0eeb932b8c4a16a52cc1c7d47fd9de51..fe9e8eeff62c4232fee6576c2eed004795b51bbe 100644 (file)
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -67,13 +67,14 @@
                       (ly-get-elt-property stem 'beam)
                       ;; and beam on same side as slur
                       (let ((beaming (ly-get-elt-property stem 'beaming)))
+                        ;; (display "beaming: ") (write beaming) (newline)
                         (if (pair? beaming)
                             (<= 1
                                 (if (= dir -1) (car beaming) (cdr beaming)))
                             #f))))))
         'stem)
 
-   ;;(cons (lambda (slur dir) (begin (display "before loose-end") (newline))#f) #f)
+   ;; (cons (lambda (slur dir) (begin (display "before loose-end") (newline))#f) #f)
    (cons (lambda (slur dir) (not (attached-to-stem slur dir)))  'loose-end)
    ;; (cons (lambda (slur dir) (begin (display "after loose-end") (newline))#f) #f)