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

(scm_array_contents): removed unnecessary test for 0 base.

Browse source
This commit is contained in:
Radey Shouman 1998-11-12 22:47:18 +00:00
parent cf7132b32a
commit 467b7f18a2
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.c
View file

@ -1388,8 +1388,6 @@ scm_array_contents (ra, strict)
len *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1; len *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1;
if (!SCM_UNBNDP (strict)) if (!SCM_UNBNDP (strict))
{ {
if (SCM_ARRAY_BASE (ra))
return SCM_BOOL_F;
if (ndim && (1 != SCM_ARRAY_DIMS (ra)[ndim - 1].inc)) if (ndim && (1 != SCM_ARRAY_DIMS (ra)[ndim - 1].inc))
return SCM_BOOL_F; return SCM_BOOL_F;
if (scm_tc7_bvect == SCM_TYP7 (SCM_ARRAY_V (ra))) if (scm_tc7_bvect == SCM_TYP7 (SCM_ARRAY_V (ra)))