diff options
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r-- | libguile/vectors.c | 2 |
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 *) |