Fretboards -- add open strings to tab based on predefined diagram

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 5380d67054527890922f84231f6c2e590117781f..683f2aaae405c6fd447cc85448894e8980d37285 100644 (file)
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -228,8 +228,11 @@ dot placement entries."
 
   (define (placement-list->string-frets placement-list)
     "Convert @var{placement-list} to string-fret list."
-    (map (lambda (x) (cdr x))
-         (filter (lambda (l) (eq? (car l) 'place-fret)) placement-list)))
+    (map (lambda (x) (if (eq? (car x) 'place-fret)
+                         (cdr x)
+                         (list (cadr x) 0)))
+         (filter (lambda (l) (or (eq? (car l) 'place-fret)
+                                 (eq? (car l) 'open))) placement-list)))
 
 
   (define (get-predefined-fretboard predefined-fret-table tuning pitches)