mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* unif.c (scm_ra_set_contp): Localize `inc' declaration.

Browse source 
Clarifies flow.
This commit is contained in:
Jim Blandy 1996-10-11 07:58:00 +00:00
parent 8ce9450492
commit fe0c6dae02
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/unif.c
View file

@ -694,9 +694,9 @@ scm_ra_set_contp (ra)
#endif
{
scm_sizet k = SCM_ARRAY_NDIM (ra);
long inc;
if (k)
inc = SCM_ARRAY_DIMS (ra)[k - 1].inc;
{
long inc = SCM_ARRAY_DIMS (ra)[k - 1].inc;
while (k--)
{
if (inc != SCM_ARRAY_DIMS (ra)[k].inc)
@ -704,7 +704,9 @@ scm_ra_set_contp (ra)
SCM_CAR (ra) &= ~SCM_ARRAY_CONTIGUOUS;
return;
}
inc *= (SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1);
inc *= (SCM_ARRAY_DIMS (ra)[k].ubnd
- SCM_ARRAY_DIMS (ra)[k].lbnd + 1);
}
}
SCM_CAR (ra) |= SCM_ARRAY_CONTIGUOUS;
}