From: Carl Sorensen <c_sorensen@byu.edu>
Date: Thu, 9 Dec 2010 01:58:49 +0000 (-0700)
Subject: Remove unused function and debugging leftovers
X-Git-Tag: release/2.13.43-1~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=16bdb67bb1ce1f52380b36e264869c2b61aa3553;p=lilypond.git

Remove unused function and debugging leftovers
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 4214d05665..c6eefac9f5 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -371,12 +371,6 @@ chords.  Returns a placement-list."
           num
           #f)))
 
-  (define (finger-number event)
-    (let ((num (ly:event-property event 'digit)))
-      (if (number? num)
-          num
-          #f)))
-
   (define (delete-free-string string)
     (if (number? string)
 	(set! free-strings
@@ -423,11 +417,9 @@ chords.  Returns a placement-list."
 
   (define (pad-list target template)
     (while (< (length target) (length template))
-           (begin
            (set! target (if (null? target)
                             '(())
-                            (append target '(())))))
-    ))
+                            (append target '(()))))))
 
   ;;; body of determine-frets-and-strings
   (set! free-strings (map 1+ (iota (length tuning))))