[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

make-vector bug: t3.1



Synopsis:
> (make-vector 3 (= 1 0))
--> #(0 0 0)
 s.b. #(#F #F #F) [or #(() () ())]

Minor code bug in vector.t.  You have probably fixed it already.

I used:
(define (make-vector length . fill)
  (let ((vec (make-vector-extend header/general-vector
                     (enforce acceptable-vector-size? length)
                     length))
        )
    (if (not (null? fill)) (vector-fill vec (car fill))) ; the hack, er fix.
    vec)
)

-Ken Dickey 		kend@mrloog.LA.TEK.COM
PS: This was a quick fix.  More elegance appreciated.