diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-30 21:03:35 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-30 21:03:35 +0000 |
commit | cda139a7912f2a2d3ca9bab52bf16d41ce4d643f (patch) | |
tree | da85e25a2c176aae167aca1ac2b5e56d6bad7a25 /libguile/unif.c | |
parent | 33b974026b6feaa7a2744914486537f4ceab23dc (diff) | |
download | guile-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.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); |