/[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.60 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.61 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 208  scm_c_make_vector (unsigned long int k, Line 208  scm_c_make_vector (unsigned long int k,
208    
209        SCM_ASSERT_RANGE (1, scm_ulong2num (k), k <= SCM_VECTOR_MAX_LENGTH);        SCM_ASSERT_RANGE (1, scm_ulong2num (k), k <= SCM_VECTOR_MAX_LENGTH);
210    
211        base = scm_must_malloc (k * sizeof (scm_t_bits), FUNC_NAME);        base = scm_gc_malloc (k * sizeof (scm_t_bits), "vector");
212        for (j = 0; j != k; ++j)        for (j = 0; j != k; ++j)
213          base[j] = SCM_UNPACK (fill);          base[j] = SCM_UNPACK (fill);
214      }      }

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

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