mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* gsubr.c (scm_gsubr_apply): Added dummy return to avoid compiler

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 1998-03-30 21:03:35 +00:00
parent 33b974026b
commit cda139a791
5 changed files with 72 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.c
View file

@ -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);