HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
defsubst
[bpt/guile.git]
/
libguile
/
weak-vector.c
diff --git
a/libguile/weak-vector.c
b/libguile/weak-vector.c
index
b1fff1b
..
082cdde
100644
(file)
--- a/
libguile/weak-vector.c
+++ b/
libguile/weak-vector.c
@@
-189,7
+189,7
@@
scm_c_weak_vector_ref (SCM wv, size_t k)
d.k = k;
if (k >= SCM_I_VECTOR_LENGTH (wv))
d.k = k;
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;
if (k >= SCM_I_VECTOR_LENGTH (wv))
d.k = k;
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);