From db7a6a0c142e25f12b24508e3042cf490ac68f04 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:25:38 +0000
Subject: [PATCH] lilypond-1.3.76

---
 scm/slur.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scm/slur.scm b/scm/slur.scm
index 8eaafee36a..dadeb3056c 100644
--- 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)
-- 
2.39.5