Re: Lower-case letter rehearsal marks

[Andrew Bernard]

Hi Abraham,

Well, as a very quick hack, you can change the uppercase hardwired A in this code to lowercase hardwired as below. I am not suggesting this is the best solution, but it works.

Andrew

— snip

define-markup-commands.scm

(define number->mark-letter-vector (make-vector 25 #\a))

(do ((i 0 (1+ i))

     (j 0 (1+ j)))

    ((>= i 26))

  (if (= i (- (char->integer #\i) (char->integer #\a)))

      (set! i (1+ i)))

  (vector-set! number->mark-letter-vector j

               (integer->char (+ i (char->integer #\a)))))

(define number->mark-alphabet-vector (list->vector

                                      (map (lambda (i) (integer->char (+ i (char->integer #\a)))) (iota 26))))

— snip