summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-10-11 07:58:00 +0000
committerJim Blandy <jimb@red-bean.com>1996-10-11 07:58:00 +0000
commitfe0c6dae02130c3e66f9c1c2291101821fb89f04 (patch)
tree7a996b16ab400ed53b813ff05bb2613966e17d1e
parent8ce9450492dc6645bf91e247e1cd6ba930683528 (diff)
downloadguile-fe0c6dae02130c3e66f9c1c2291101821fb89f04.tar.gz
* unif.c (scm_ra_set_contp): Localize `inc' declaration.
Clarifies flow.
-rw-r--r--libguile/unif.c16
1 files changed, 9 insertions, 7 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index b4302d149..5d604eeda 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -694,17 +694,19 @@ 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;
- while (k--)
{
- if (inc != SCM_ARRAY_DIMS (ra)[k].inc)
+ long inc = SCM_ARRAY_DIMS (ra)[k - 1].inc;
+ while (k--)
{
- SCM_CAR (ra) &= ~SCM_ARRAY_CONTIGUOUS;
- return;
+ if (inc != SCM_ARRAY_DIMS (ra)[k].inc)
+ {
+ 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;
}