diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-10-11 07:58:00 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-10-11 07:58:00 +0000 |
commit | fe0c6dae02130c3e66f9c1c2291101821fb89f04 (patch) | |
tree | 7a996b16ab400ed53b813ff05bb2613966e17d1e | |
parent | 8ce9450492dc6645bf91e247e1cd6ba930683528 (diff) | |
download | guile-fe0c6dae02130c3e66f9c1c2291101821fb89f04.tar.gz |
* unif.c (scm_ra_set_contp): Localize `inc' declaration.
Clarifies flow.
-rw-r--r-- | libguile/unif.c | 16 |
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; } |