76 |
i = 0; |
i = 0; |
77 |
while (i < old_length) |
while (i < old_length) |
78 |
{ |
{ |
79 |
SCM_VELTS(new_fluids)[i] = SCM_VELTS(old_fluids)[i]; |
SCM_VECTOR_SET (new_fluids, i, SCM_VELTS(old_fluids)[i]); |
80 |
i++; |
i++; |
81 |
} |
} |
82 |
while (i < new_length) |
while (i < new_length) |
83 |
{ |
{ |
84 |
SCM_VELTS(new_fluids)[i] = SCM_BOOL_F; |
SCM_VECTOR_SET (new_fluids, i, SCM_BOOL_F); |
85 |
i++; |
i++; |
86 |
} |
} |
87 |
|
|
171 |
|
|
172 |
if (SCM_VECTOR_LENGTH (scm_root->fluids) <= n) |
if (SCM_VECTOR_LENGTH (scm_root->fluids) <= n) |
173 |
grow_fluids (scm_root, n+1); |
grow_fluids (scm_root, n+1); |
174 |
SCM_VELTS (scm_root->fluids)[n] = value; |
SCM_VECTOR_SET (scm_root->fluids, n, value); |
175 |
return SCM_UNSPECIFIED; |
return SCM_UNSPECIFIED; |
176 |
} |
} |
177 |
#undef FUNC_NAME |
#undef FUNC_NAME |