summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-03-11 15:03:06 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-03-11 15:03:06 +0000
commitb1d24656ea3f43423006e65dbd108def93e5f131 (patch)
tree167bd4824b46943e64ea4020cf2585e628e77f84 /libguile/unif.c
parent9fbaf27ccbf33b1d2f79f0eb3abf54347348905a (diff)
downloadguile-b1d24656ea3f43423006e65dbd108def93e5f131.tar.gz
* unif.c (scm_array_set_x): Cast ICHR (obj) to char if storing in
a scm_tc7_byvect. * ramap.c (scm_ra_matchp, scm_ra_matchp, scm_array_fill_int, racp, scm_array_index_map_x, raeql_1, scm_array_equal_p): Completed support for byte vectors.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c2
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;