summaryrefslogtreecommitdiff
path: root/libguile/array-map.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r--libguile/array-map.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c
index c2825bc42..79383969d 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -263,6 +263,8 @@ racp (SCM src, SCM dst)
{
SCM const * el_s = h_s.elements;
SCM * el_d = h_d.writable_elements;
+ if (!el_d)
+ scm_wrong_type_arg_msg ("array-copy!", SCM_ARG2, dst, "mutable array");
for (; n-- > 0; i_s += inc_s, i_d += inc_d)
el_d[i_d] = el_s[i_s];
}