* lily/identifier-smob.cc (unpack_identifier): new file.

[lilypond.git] / scm / chord-name.scm

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 337235adf95dc26e49a3ffee24d3987ecdd4f892..7aba79771854a8aff0e3e1d708185c9b88aa1a23 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -440,7 +440,7 @@
 
 ;; DONT use non-ascii characters, even if ``it works'' in Windows
 
-(define chord::names-alist-american '())
+(define-public chord::names-alist-american '())
 
 (set! chord::names-alist-american
       (append 
@@ -488,7 +488,7 @@
 
 ;; American style chordnames use no "no",
 ;; but otherwise very similar to banter for now
-(define (chord::name-american tonic exception-part unmatched-steps
+(define-public (chord::name-american tonic exception-part unmatched-steps
                              bass-and-inversion steps)
   (let ((additions (chord::additions unmatched-steps))
        (subtractions #f))
@@ -519,7 +519,7 @@
 ;;
 ;; DONT use non-ascii characters, even if ``it works'' in Windows
 
-(define chord::names-alist-jazz '())
+(define-public chord::names-alist-jazz '())
 (set! chord::names-alist-jazz
       (append 
       '(
@@ -815,7 +815,7 @@ If we encounter a chromatically altered step, turn on list-step
 ;; If you set subtract #f, the chord::inner-name-jazz does not see any
 ;; subtractions, ever, so they don't turn up in the chord name.
 ;;
-(define (chord::name-jazz tonic exception-part unmatched-steps
+(define-public (chord::name-jazz tonic exception-part unmatched-steps
                          bass-and-inversion steps)
   (let ((additions (chord::additions unmatched-steps))
        ;; get no 'omit' or 'no'