* libguile/weaks.c (scm_c_weak_vector_ref, scm_c_weak_vector_set_x):
Pass procedure name to 'scm_out_of_range'.
SCM_VALIDATE_WEAK_VECTOR (1, wvect);
if (k >= SCM_I_VECTOR_LENGTH (wvect))
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)
elt = (SCM_I_VECTOR_ELTS(wvect))[k];
if (SCM_UNPACK (elt) == 0)
SCM_VALIDATE_WEAK_VECTOR (1, wvect);
if (k >= SCM_I_VECTOR_LENGTH (wvect))
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;
loc = & SCM_I_VECTOR_WELTS (wvect)[k];
*loc = elt;