From e4dcfba304ce9c6c7d8b1696d5ff707dfde4a5b1 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 11 Jan 2005 00:10:14 +0000 Subject: [PATCH] *** empty log message *** --- scm/chord-name.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scm/chord-name.scm b/scm/chord-name.scm index e964da8bfb..6addeddc93 100644 --- a/scm/chord-name.scm +++ b/scm/chord-name.scm @@ -105,12 +105,12 @@ FOOBAR-MARKUP) if OMIT-ROOT is given and non-false. (text (if (null? texts) #f (if omit-root (car texts) texts)))) (cons (if omit-root (cdr normalized) normalized) text))) - (define (is-req-chord? m) + (define (is-event-chord? m) (and (memq 'event-chord (ly:music-property m 'types)) (not (equal? ZERO-MOMENT (ly:music-length m))))) - (let* ((elts (filter is-req-chord? (ly:music-property seq 'elements))) + (let* ((elts (filter is-event-chord? (ly:music-property seq 'elements))) (alist (map chord-to-exception-entry elts))) (filter (lambda (x) (cdr x)) alist))) -- 2.39.5