diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-11 15:03:06 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-11 15:03:06 +0000 |
commit | b1d24656ea3f43423006e65dbd108def93e5f131 (patch) | |
tree | 167bd4824b46943e64ea4020cf2585e628e77f84 /libguile/unif.c | |
parent | 9fbaf27ccbf33b1d2f79f0eb3abf54347348905a (diff) | |
download | guile-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.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; |