summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index 9a675954a..6e53451fb 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -569,6 +569,7 @@ scm_dimensions_to_uniform_array (dims, prot, fill)
scm_array_dim *s;
SCM ra;
if (SCM_INUMP (dims))
+ {
if (SCM_INUM (dims) < SCM_LENGTH_MAX)
{
SCM answer;
@@ -588,6 +589,7 @@ scm_dimensions_to_uniform_array (dims, prot, fill)
}
else
dims = scm_cons (dims, SCM_EOL);
+ }
SCM_ASSERT (SCM_NULLP (dims) || (SCM_NIMP (dims) && SCM_CONSP (dims)),
dims, SCM_ARG1, s_dimensions_to_uniform_array);
ra = scm_shap2ra (dims, s_dimensions_to_uniform_array);