/[guile]/guile/guile-core/libguile/vectors.c
ViewVC logotype

Diff of /guile/guile-core/libguile/vectors.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26