[Larceny-users] more on read-dispatch-vec

[Eduardo Cavazos]

Hello,

      ; Symbol starters.
      
      (do ((c 128 (+ 1 c)))
          ((= c 256))
        (vector-set! read-dispatch-vec c read-dispatch-symbol-starter))
 
      (do ((i 0 (+ i 1)))
          ((= i 256))
        (if (char-alphabetic? (integer->char i))
            (vector-set! read-dispatch-vec i read-dispatch-symbol-starter)))

Shouldn't that second do loop only need to run through 127?

BTW, is there a public repository that I can make patches against?

Ed