Parent Directory | Revision Log | Patch
revision 1.61 by mvo, Mon Feb 11 18:06:49 2002 UTC | revision 1.62 by dirk, Fri Mar 1 00:19:20 2002 UTC | |
---|---|---|
# | Line 215 scm_c_make_vector (unsigned long int k, | Line 215 scm_c_make_vector (unsigned long int k, |
215 | else | else |
216 | base = NULL; | base = NULL; |
217 | ||
218 | v = scm_alloc_cell (SCM_MAKE_VECTOR_TAG (k, scm_tc7_vector), | v = scm_cell (SCM_MAKE_VECTOR_TAG (k, scm_tc7_vector), (scm_t_bits) base); |
(scm_t_bits) base); | ||
219 | scm_remember_upto_here_1 (fill); | scm_remember_upto_here_1 (fill); |
220 | ||
221 | return v; | return v; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |