From d23f0313c4c574d726c044fd3b03c9761f1d1f23 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 18 Oct 2002 23:31:01 +0000 Subject: [PATCH] *** empty log message *** --- ChangeLog | 5 +++++ scm/chord-name.scm | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6eabdc55b1..54a5c5f3fa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-10-19 Han-Wen Nienhuys + + * lily/stem-engraver.cc (acknowledge_grob): don't crash on + undefined tremolo. + 2002-10-15 Werner Lemberg * 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 -- 2.39.5