From: Carl Sorensen <c_sorensen@byu.edu>
Date: Thu, 18 Nov 2010 04:22:36 +0000 (-0700)
Subject: Fix typo/thinko in determining frets from fretboards.
X-Git-Tag: release/2.13.40-1~11^2~2
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=6121051718cc848b2899ee33a0a27e7edd038526;p=lilypond.git

Fix typo/thinko in determining frets from fretboards.
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index ece0031b78..5380d67054 100644
--- 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)