mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* vectors.c (scm_make_vector): Fill vectors with the undefined

Browse source 
value, to help make Guile Scheme code more portable to other
Schemes.
This commit is contained in:
Jim Blandy 1996-10-11 07:58:13 +00:00
parent fe0c6dae02
commit d60cebe257
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vectors.c
View file

@ -156,7 +156,7 @@ scm_make_vector(k, fill, multip)
SCM_ASSERT(SCM_INUMP(k) && (0 <= SCM_INUM (k)), k, SCM_ARG1, s_make_vector); SCM_ASSERT(SCM_INUMP(k) && (0 <= SCM_INUM (k)), k, SCM_ARG1, s_make_vector);
if (SCM_UNBNDP(fill)) if (SCM_UNBNDP(fill))
fill = SCM_EOL; fill = SCM_UNSPECIFIED;
multi = !(SCM_UNBNDP(multip) || SCM_FALSEP(multip)); multi = !(SCM_UNBNDP(multip) || SCM_FALSEP(multip));
i = SCM_INUM(k); i = SCM_INUM(k);
SCM_NEWCELL(v); SCM_NEWCELL(v);