diff options
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 4daea2bf4..fc9879a89 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1284,7 +1284,7 @@ scm_array_set_x (v, obj, args) break; case scm_tc7_byvect: if (SCM_ICHRP (obj)) - obj = SCM_MAKINUM (SCM_ICHR (obj)); + obj = SCM_MAKINUM ((char) SCM_ICHR (obj)); SCM_ASRTGO (SCM_INUMP (obj), badobj); ((char *)SCM_CHARS (v))[pos] = SCM_INUM (obj); break; |