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

comparison.

diff --git a/ChangeLog b/ChangeLog
index 87ffc225859c28f331f2f14148934501b13de11b..632d8ceb79a192e99051cb4534150159a4d7a21e 100644 (file)
--- 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 d39892847f1d32985189b5c964bb90f28b3afc2c..65da185282aba7cf416a398a91f7349992016105 100644 (file)
--- 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 e51eda250b8e9774550f0690cf48a4bea85ba68f..8a03c141ed74bf4958b95d8d8e839977e9550b78 100644 (file)
--- 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)