fix typo in banjo SCM code. Add regtest.

diff --git a/input/regression/tablature-banjo.ly b/input/regression/tablature-banjo.ly
new file mode 100644 (file)
index 0000000..7e8dea3
--- /dev/null
+++ b/input/regression/tablature-banjo.ly
@@ -0,0 +1,18 @@
+\version "2.10.0"
+
+\header
+{
+  texidoc = "Tablature may also be tuned for banjo."
+}
+
+\new TabStaff <<
+  \set TabStaff.tablatureFormat = #fret-number-tablature-format-banjo
+  \set TabStaff.stringTunings = #banjo-open-g-tuning
+  {
+    \stemDown
+    g8 d' g'\5 a b g e d' |
+    g4 d''8\5 b' a'\2 g'\5 e'\2 d' |
+    g4
+  }
+>>
+

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 9075abd86fb18148a7442c2e34c53cc72d87d36d..91e5c42e25e639cbf2f7fdd743d7d5c8f2ac7bae 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -87,7 +87,7 @@
 (define-public (fret-number-tablature-format-banjo string 
                                             context event)
   (let*
-      ((tuning (ly:context-property context 'stringTuning))
+      ((tuning (ly:context-property context 'stringTunings))
        (pitch (ly:event-property event 'pitch))
        )
   (make-whiteout-markup