diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-19 09:38:37 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-19 09:38:37 +0000 |
commit | e038c04203e77522ba59c8181df4601ed15621a1 (patch) | |
tree | 83dbaab6f29083afce0084a26e67f7fd6996ec35 /libguile/unif.c | |
parent | 31e74a57aa4ae37262ae8e51699ea06a1fcfee36 (diff) | |
download | guile-e038c04203e77522ba59c8181df4601ed15621a1.tar.gz |
* Eliminate some further applications of SCM_C[AD]R to non pair cells.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 70fda42b9..d183dddb9 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -604,7 +604,7 @@ SCM_DEFINE (scm_dimensions_to_uniform_array, "dimensions->uniform-array", 2, 1, SCM_ASSERT (SCM_NULLP (dims) || SCM_CONSP (dims), dims, SCM_ARG1, FUNC_NAME); ra = scm_shap2ra (dims, FUNC_NAME); - SCM_SETOR_CAR (ra, SCM_ARRAY_CONTIGUOUS); + SCM_SET_ARRAY_CONTIGUOUS_FLAG (ra); s = SCM_ARRAY_DIMS (ra); k = SCM_ARRAY_NDIM (ra); while (k--) @@ -642,14 +642,14 @@ scm_ra_set_contp (SCM ra) { if (inc != SCM_ARRAY_DIMS (ra)[k].inc) { - SCM_SETAND_CAR (ra, ~SCM_ARRAY_CONTIGUOUS); + SCM_CLR_ARRAY_CONTIGUOUS_FLAG (ra); return; } inc *= (SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1); } } - SCM_SETOR_CAR (ra, SCM_ARRAY_CONTIGUOUS); + SCM_SET_ARRAY_CONTIGUOUS_FLAG (ra); } |