diff options
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 2 |
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); |