Fix typo/thinko in determining frets from fretboards.

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index ece0031b78ab485b2672784ad9c8b9029a8a00f7..5380d67054527890922f84231f6c2e590117781f 100644 (file)
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -229,7 +229,7 @@ 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? (cdr l) 'place-fret) placement-list))))
+         (filter (lambda (l) (eq? (car l) 'place-fret)) placement-list)))
 
 
   (define (get-predefined-fretboard predefined-fret-table tuning pitches)