summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-19 09:38:37 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-19 09:38:37 +0000
commite038c04203e77522ba59c8181df4601ed15621a1 (patch)
tree83dbaab6f29083afce0084a26e67f7fd6996ec35 /libguile/unif.c
parent31e74a57aa4ae37262ae8e51699ea06a1fcfee36 (diff)
downloadguile-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.c6
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);
}