From 16bdb67bb1ce1f52380b36e264869c2b61aa3553 Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Wed, 8 Dec 2010 18:58:49 -0700 Subject: [PATCH] Remove unused function and debugging leftovers --- scm/translation-functions.scm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) 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)))) -- 2.39.5