mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

(string_set): Don't return in a void function. (Reported

Browse source 
by Mike Gran.)
This commit is contained in:
Neil Jerram 2006-03-11 20:47:52 +00:00
parent 05b454920e
commit a9bcaa37b3
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
2006-03-11 Neil Jerram <neil@ossau.uklinux.net> 2006-03-11 Neil Jerram <neil@ossau.uklinux.net>
* unif.c (string_set): Don't return in a void function. (Reported
by Mike Gran.)
* srfi-4.c (scm_uniform_vector_read_x): Declare base as char* * srfi-4.c (scm_uniform_vector_read_x): Declare base as char*
rather than void*, so we can do pointer arithmetic on it. rather than void*, so we can do pointer arithmetic on it.
(Reported by Mike Gran.) (Reported by Mike Gran.)

4
libguile/unif.c
View file

@ -368,9 +368,9 @@ string_set (scm_t_array_handle *h, ssize_t pos, SCM val)
{ {
pos += h->base; pos += h->base;
if (SCM_I_ARRAYP (h->array)) if (SCM_I_ARRAYP (h->array))
return scm_c_string_set_x (SCM_I_ARRAY_V (h->array), pos, val); scm_c_string_set_x (SCM_I_ARRAY_V (h->array), pos, val);
else else
return scm_c_string_set_x (h->array, pos, val); scm_c_string_set_x (h->array, pos, val);
} }
static void static void