The argument order for vector-unfold! feels wrong.  Instead of:

    (vector-unfold! vec i f length initial-seed ...)

I would expect:

   (vector-unfold! vec start end f initial-seed ...)
--
	--Per Bothner
xxxxxx@bothner.com   http://per.bothner.com/