From: Han-Wen Nienhuys <hanwen@xs4all.nl> Date: Fri, 18 Oct 2002 23:31:01 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: release/1.6.6~3 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d23f0313c4c574d726c044fd3b03c9761f1d1f23;p=lilypond.git *** empty log message *** --- diff --git a/ChangeLog b/ChangeLog index 6eabdc55b1..54a5c5f3fa 100644 --- 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 c562070d6c..5dc36fb9d4 100644 --- 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