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

Merge commit '495cea0c93'

Browse source 
Conflicts:
	libguile/weaks.c
This commit is contained in:
Andy Wingo 2014-02-08 14:48:48 +01:00
commit adf06a72d5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/weak-vector.c
View file

@ -189,7 +189,7 @@ scm_c_weak_vector_ref (SCM wv, size_t k)
d.k = k; d.k = k;
if (k >= SCM_I_VECTOR_LENGTH (wv)) if (k >= SCM_I_VECTOR_LENGTH (wv))
scm_out_of_range (NULL, scm_from_size_t (k)); scm_out_of_range ("weak-vector-ref", scm_from_size_t (k));
ret = GC_call_with_alloc_lock (weak_vector_ref, &d); ret = GC_call_with_alloc_lock (weak_vector_ref, &d);
@ -227,7 +227,7 @@ scm_c_weak_vector_set_x (SCM wv, size_t k, SCM x)
d.k = k; d.k = k;
if (k >= SCM_I_VECTOR_LENGTH (wv)) if (k >= SCM_I_VECTOR_LENGTH (wv))
scm_out_of_range (NULL, scm_from_size_t (k)); scm_out_of_range ("weak-vector-set!", scm_from_size_t (k));
prev = GC_call_with_alloc_lock (weak_vector_ref, &d); prev = GC_call_with_alloc_lock (weak_vector_ref, &d);