mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

* unif.c (scm_array_set_x): Cast ICHR (obj) to char if storing in

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 1997-03-11 15:03:06 +00:00
parent 9fbaf27ccb
commit b1d24656ea
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.c
View file

@ -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;