From 495cea0c931de23f074892b3f32808e676712a18 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Fri, 7 Feb 2014 16:53:48 -0500 Subject: [PATCH] Better error reporting in 'weak-vector-ref' and 'weak-vector-set!'. * libguile/weaks.c (scm_c_weak_vector_ref, scm_c_weak_vector_set_x): Pass procedure name to 'scm_out_of_range'. --- libguile/weaks.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/weaks.c b/libguile/weaks.c index b59099885..85d79b4aa 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -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; -- 2.20.1