From: hanwen <hanwen>
Date: Tue, 30 Sep 2003 21:15:50 +0000 (+0000)
Subject: (default-slur-extremity-rules): use equal? for
X-Git-Tag: release/2.1.3~35
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ab562efd5e2a9f11a8ce4a297dbb5545c917afbb;p=lilypond.git

(default-slur-extremity-rules): use equal? for
comparison.
---

diff --git a/ChangeLog b/ChangeLog
index 87ffc22585..632d8ceb79 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-09-30  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+	* scm/slur.scm (default-slur-extremity-rules): use equal? for
+	comparison.
+
 	* mf/feta-bolletjes.mf: make hole in half note little
 	smaller for stem attachment.
 
diff --git a/lily/beam.cc b/lily/beam.cc
index d39892847f..65da185282 100644
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -14,6 +14,7 @@ TODO:
   
   - Determine auto knees based on positions if it's set by the user.
 
+  - rounded corners.
 
 Notes:
 
diff --git a/scm/slur.scm b/scm/slur.scm
index e51eda250b..8a03c141ed 100644
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -47,11 +47,12 @@
    (cons (lambda (slur dir)
 	   ;; urg, code dup
 	   (let* ((note-columns (ly:get-grob-property slur 'note-columns))
-		  (col (if (= dir 1) (car note-columns) (car (reverse note-columns))))
+		  (col (car (if (= dir 1) note-columns (reverse note-columns))))
 		  (stem (ly:get-grob-property col 'stem)))
+	     
 	     (and stem
-		  (not (= (ly:get-grob-property slur 'direction) 
-			  (ly:get-grob-property stem 'direction))))))  'head)
+		  (not (equal? (ly:get-grob-property slur 'direction) 
+			       (ly:get-grob-property stem 'direction))))))  'head)
 
    ;; (cons (lambda (slur dir) (begin (display "before stem") (newline))#f) #f)