*** empty log message ***

[bpt/guile.git] / libguile / unif.c

diff --git a/libguile/unif.c b/libguile/unif.c
index 7367230..a613c3e 100644 (file)
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1311,7 +1311,7 @@ scm_array_set_x (v, obj, args)
   case scm_tc7_uvect:
     SCM_VELTS(v)[pos] = scm_num2ulong(obj, (char *)SCM_ARG2, s_array_set_x); break;
   case scm_tc7_ivect:
-    SCM_VELTS(v)[pos] = num2long(obj, (char *)SCM_ARG2, s_array_set_x); break;
+    SCM_VELTS(v)[pos] = scm_num2long(obj, (char *)SCM_ARG2, s_array_set_x); break;
 # endif
       break;
 
@@ -1388,8 +1388,6 @@ scm_array_contents (ra, strict)
          len *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1;
        if (!SCM_UNBNDP (strict))
          {
-           if (SCM_ARRAY_BASE (ra))
-             return SCM_BOOL_F;
            if (ndim && (1 != SCM_ARRAY_DIMS (ra)[ndim - 1].inc))
              return SCM_BOOL_F;
            if (scm_tc7_bvect == SCM_TYP7 (SCM_ARRAY_V (ra)))