* ramap.c (s_scm_array_fill_x): Cast `ve' properly in case

`scm_tc7_uvect'.

diff --git a/libguile/ramap.c b/libguile/ramap.c
index a16c31f..704976a 100644 (file)
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -543,7 +543,7 @@ scm_array_fill_int (SCM ra, SCM fill, SCM ignore)
     case scm_tc7_uvect:
       { /* scope */
        unsigned long f = SCM_NUM2ULONG (2,fill);
-       unsigned long *ve = (long *) SCM_VELTS (ra);
+       unsigned long *ve = (unsigned long *) SCM_VELTS (ra);
 
        for (i = base; n--; i += inc)
          ve[i] = f;