summaryrefslogtreecommitdiff
path: root/libguile/vectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r--libguile/vectors.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vectors.c b/libguile/vectors.c
index 2d045b332..2ffe1302d 100644
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -103,7 +103,7 @@ scm_vector_set_length_x (SCM vect, SCM len)
l = 1L;
siz = l * sz;
if (siz != l * sz)
- scm_wta (SCM_MAKINUM (l * sz), (char *) SCM_NALLOC, s_vector_set_length_x);
+ scm_memory_error (s_vector_set_length_x);
SCM_REDEFER_INTS;
SCM_SETCHARS (vect,
((char *)