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

Better error reporting in 'weak-vector-ref' and 'weak-vector-set!'.

Browse source 
* libguile/weaks.c (scm_c_weak_vector_ref, scm_c_weak_vector_set_x):
  Pass procedure name to 'scm_out_of_range'.
This commit is contained in:
Mark H Weaver 2014-02-07 16:53:48 -05:00
parent b86069c130
commit 495cea0c93
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/weaks.c
View file

@ -212,7 +212,7 @@ scm_c_weak_vector_ref (SCM wvect, size_t k)
SCM_VALIDATE_WEAK_VECTOR (1, wvect);
if (k >= SCM_I_VECTOR_LENGTH (wvect))
scm_out_of_range (NULL, scm_from_size_t (k));
scm_out_of_range ("weak-vector-ref", scm_from_size_t (k));
elt = (SCM_I_VECTOR_ELTS(wvect))[k];
if (SCM_UNPACK (elt) == 0)
@ -245,7 +245,7 @@ scm_c_weak_vector_set_x (SCM wvect, size_t k, SCM elt)
SCM_VALIDATE_WEAK_VECTOR (1, wvect);
if (k >= SCM_I_VECTOR_LENGTH (wvect))
scm_out_of_range (NULL, scm_from_size_t (k));
scm_out_of_range ("weak-vector-set!", scm_from_size_t (k));
loc = & SCM_I_VECTOR_WELTS (wvect)[k];
*loc = elt;