On 16.11.2015 22:20, Thomas Morley wrote:
(define (foo pair)
   (if (and (integer? (car pair)) (integer? (cdr pair)))
       (iota (1+ (interval-length pair)) (car pair) 1))
       #f)

(foo '(3 . 7))
--> (3 4 5 6 7)

An equally good solution.
Thank you, Simon

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to