[Larceny-users] read-dispatch-vec initialization

[Eduardo Cavazos]

Hello,

I'm not a Larceny or Scheme expert...

In Lib/Common/reader.scm :

(letrec
    (...
     (read-dispatch-vec (make-vector 256 (undefined)))
     ...)

  ;; initialize read-dispatch-vec :

  (do ((i 255 (- i 1)))
       ((< i 0) '())
    (vector-set! read-dispatch-vec i read-illegal))
  ...)

Why isn't it simply:

(read-dispatch-vec (make-vector 256 read-illegal))

Ed