mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Use immutable cells for vectors.

Browse source 
* libguile/vectors.c (scm_c_make_vector): Use `scm_immutable_cell ()'.
This commit is contained in:
Ludovic Courtès 2008-09-16 12:17:29 +02:00
parent a284cc7ed8
commit bc743877ff
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

@ -351,7 +351,7 @@ scm_c_make_vector (size_t k, SCM fill)
else
base = NULL;
v = scm_cell ((k << 8) | scm_tc7_vector, (scm_t_bits) base);
v = scm_immutable_cell ((k << 8) | scm_tc7_vector, (scm_t_bits) base);
scm_remember_upto_here_1 (fill);
return v;