122 |
{ |
{ |
123 |
long i; |
long i; |
124 |
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); |
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); |
|
SCM *velts = SCM_VELTS(v); |
|
|
|
|
125 |
for (i = 0; i < n; ++i) |
for (i = 0; i < n; ++i) |
126 |
velts[i] = (SCM_FIXABLE (d[i]) ? SCM_MAKINUM (d[i]) : scm_i_long2big (d[i])); |
SCM_VECTOR_SET (v, i, (SCM_FIXABLE (d[i]) ? SCM_MAKINUM (d[i]) : scm_i_long2big (d[i]))); |
127 |
|
|
128 |
return v; |
return v; |
129 |
} |
} |
133 |
{ |
{ |
134 |
long i; |
long i; |
135 |
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); |
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); |
|
SCM *velts = SCM_VELTS(v); |
|
136 |
|
|
137 |
for(i = 0; i < n; i++) |
for(i = 0; i < n; i++) |
138 |
velts[i] = scm_make_real (d[i]); |
SCM_VECTOR_SET (v, i, scm_make_real (d[i])); |
139 |
return v; |
return v; |
140 |
} |
} |
141 |
|
|