Merge branch 'translation'

[lilypond.git] / scm / tablature.scm

diff --git a/scm/tablature.scm b/scm/tablature.scm
index d62f0aa0178211e5d4e58b3216aefedc233c6319..e32d712e19ae97986b84422a2e99b2fa8dd5fe22 100644 (file)
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -376,7 +376,7 @@
         (elt (ly:music-property mus 'element)))
     (cond
      ((pair? elts)
-      (map make-harmonic elts))
+      (for-each make-harmonic elts))
      ((ly:music? elt)
       (make-harmonic elt))
      ((music-is-of-type? mus 'note-event)