summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-03-30 21:03:35 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-03-30 21:03:35 +0000
commitcda139a7912f2a2d3ca9bab52bf16d41ce4d643f (patch)
treeda85e25a2c176aae167aca1ac2b5e56d6bad7a25 /libguile/unif.c
parent33b974026b6feaa7a2744914486537f4ceab23dc (diff)
downloadguile-cda139a7912f2a2d3ca9bab52bf16d41ce4d643f.tar.gz
* gsubr.c (scm_gsubr_apply): Added dummy return to avoid compiler
warning. * eval.c, numbers.c, unif.c, srcprop.c: Added a few curly braces to avoid compiler warnings. * dynl-dl.c (sysdep_dynl_func): Only define usymb if needed.
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);