*** empty log message ***

diff --git a/ChangeLog b/ChangeLog
index 6eabdc55b111d9370f4861167fc398617e60260e..54a5c5f3fa736c6788572b7813168abd426da4f0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-19  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * lily/stem-engraver.cc (acknowledge_grob): don't crash on
+       undefined tremolo. 
+
 2002-10-15  Werner Lemberg  <wl@gnu.org>
 
        * scripts/lilypond-book.py (g_make_html): New global variable.

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index c562070d6c4d9eed397b72411677bb1d8e2b68cf..5dc36fb9d49fdbbd802aab7a4861bebbe8caf194 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -408,7 +408,7 @@
 ;; chord to be name-calculated.
 ;;
 ;; CHORD: (pitches (bass . inversion))
-(define (default-chord-name-function style chord)
+(define-public (default-chord-name-function style chord)
   (let* ((pitches (map c++-pitch->scm (car chord)))
         (modifiers (cdr chord))
         (bass-and-inversion (if (pair? modifiers)
@@ -420,7 +420,11 @@
                                         (pitch::transpose x diff))
                                       (cdr pitches))
                    '())))
-    (chord::name->text style (car pitches) steps bass-and-inversion)))
+;    (display (chord::name->text style (car pitches) steps bass-and-inversion))
+    (chord::name->text style (car pitches) steps bass-and-inversion)
+
+
+    ))
 
 ;;;
 ;;; American style