lilypond-1.3.76

diff --git a/scm/slur.scm b/scm/slur.scm
index 8eaafee36abb21f8b83feffd1e3e1bf05fb34cf2..dadeb3056c564716d33a23292f400f361f775d05 100644 (file)
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -25,6 +25,9 @@
 
 (define slur-extremity-rules
   (list
+
+   ;; (cons (lambda (slur dir) (begin (display "before head") (newline))#f) #f)
+
    (cons (lambda (slur dir)
           ;; urg, code dup
           (let* ((note-columns (ly-get-elt-property slur 'note-columns))
@@ -34,6 +37,8 @@
                  (not (= (ly-get-elt-property slur 'direction) 
                          (ly-get-elt-property stem 'direction))))))  'head)
 
+   ;; (cons (lambda (slur dir) (begin (display "before stem") (newline))#f) #f)
+
    (cons (lambda (slur dir)
           ;; if attached-to-stem
           (and (attached-to-stem slur dir)
@@ -52,7 +57,9 @@
                             #f))))))
         'stem)
 
+   ;;(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)
 
    ;; default case, attach to head
    (cons (lambda (x y) #t)  'head)