- SCM_SETCHARS(v, scm_must_malloc(i?(long)(i*sizeof(SCM)):1L, FUNC_NAME));
- velts = SCM_VELTS(v);
- for (j = 0; j < i; ++j)
- velts[j] = fill;
- SCM_SETLENGTH(v, i, scm_tc7_vector);
+ {
+ unsigned long int j;
+
+ for (j = 0; j != i; ++j)
+ velts[j] = SCM_UNPACK (fill);
+
+ SCM_SETCHARS (v, velts);
+ SCM_SETLENGTH (v, i, scm_tc7_vector);
+ }