;;; body.
-
(set! specified-frets
(filter identity (map
(lambda (note)
(note-string note) tunings)
#f))
notes)))
- (set! free-strings (map 1+ (iota (length tunings))))
-
+
+ (set! free-strings (map 1+ (iota (length tunings))))
(for-each (lambda (note)
(del-string (note-string note)))
)))
(sort notes note-pitch<?))
-
-
- string-fret-fingering-tuples)
+ string-fret-fingering-tuples)