[Larceny-users] read-dispatch-vec

[Eduardo Cavazos]

Hello,

Hmmm. The read-illegal procedure is factored out, but is only used in a single 
place: the initialization of read-dispatch-vec. You can eliminate the do loop 
initializer and the read-illegal binding and bind read-dispatch-vec like 
this:

(letrec
  (...
   (read-dispatch-vec
     (make-vector 256 (lambda (c p)
                        (error "Illegal character in input to read" c)
                        #t)))
   ...)

Ed