* 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.

libguile/dynl-dl.c

@@ -87,7 +87,9 @@ sysdep_dynl_func (symb, handle, subr)
 {
     void *fptr;
     char *err;
+#if defined(USCORE) && !defined(DLSYM_ADDS_USCORE)
     char *usymb;
+#endif
 
 #if defined(USCORE) && !defined(DLSYM_ADDS_USCORE)
     usymb = (char *) malloc (strlen (symb) + 2);

libguile/gsubr.c

@@ -161,6 +161,7 @@ scm_gsubr_apply(args)
   case 9: return (*fcn)(v[0], v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8]);
   case 10: return (*fcn)(v[0], v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9]);
   }
+  return 0; /* Never reached. */
 }
 
 

libguile/numbers.c

@@ -1241,13 +1241,17 @@ idbl2str(f, a)
 # else
   efmt = (exp < -3) || (exp > wp+2);
   if (!efmt)
-    if (exp < 0) {
+    {
+      if (exp < 0)
+	{
 	  a[ch++] = '0';
 	  a[ch++] = '.';
 	  dpt = exp;
 	  while (++dpt)  a[ch++] = '0';
-    } else
+	}
+      else
 	dpt = exp+1;
+    }
   else
     dpt = 1;
 # endif
@@ -1266,19 +1270,23 @@ idbl2str(f, a)
   } while (wp--);
 
   if (dpt > 0)
+    {
 # ifndef ENGNOT
-    if ((dpt > 4) && (exp > 6)) {
+      if ((dpt > 4) && (exp > 6))
+	{
 	  d = (a[0]=='-'?2:1);
 	  for (i = ch++; i > d; i--)
 	    a[i] = a[i-1];
 	  a[d] = '.';
 	  efmt = 1;
-    } else
+	}
+      else
 # endif
 	{
 	  while (--dpt)  a[ch++] = '0';
 	  a[ch++] = '.';
 	}
+    }
   if (a[ch-1]=='.')  a[ch++]='0'; /* trailing zero */
   if (efmt && exp) {
     a[ch++] = 'e';
@@ -2617,12 +2625,16 @@ scm_difference(x, y)
     SCM_ASRTGO(SCM_INEXP(x), badx);
     SCM_ASRTGO(SCM_NIMP(y) && SCM_INEXP(y), bady);
 # endif
-    if SCM_CPLXP(x)
+    if (SCM_CPLXP (x))
-      if SCM_CPLXP(y)
+      {
-	return scm_makdbl(SCM_REAL(x)-SCM_REAL(y), SCM_IMAG(x)-SCM_IMAG(y));
+	if (SCM_CPLXP (y))
+	  return scm_makdbl (SCM_REAL (x) - SCM_REAL (y),
+			     SCM_IMAG (x) - SCM_IMAG (y));
 	else
 	  return scm_makdbl (SCM_REAL (x) - SCM_REALPART(y), SCM_IMAG (x));
-    return scm_makdbl(SCM_REALPART(x)-SCM_REALPART(y), SCM_CPLXP(y)?-SCM_IMAG(y):0.0);
+      }
+    return scm_makdbl (SCM_REALPART (x) - SCM_REALPART (y),
+		       SCM_CPLXP(y) ? - SCM_IMAG (y) : 0.0);
   }
   if SCM_UNBNDP(y) {x = -SCM_INUM(x); goto checkx;}
   if SCM_NINUMP(y) {
@@ -2763,12 +2775,17 @@ scm_product(x, y)
     bady: scm_wta(y, (char *)SCM_ARG2, s_product);
 #  endif
 # endif
-    if SCM_CPLXP(x)
+    if (SCM_CPLXP(x))
-      if SCM_CPLXP(y)
+      {
-	return scm_makdbl(SCM_REAL(x)*SCM_REAL(y)-SCM_IMAG(x)*SCM_IMAG(y),
+	if (SCM_CPLXP(y))
-			  SCM_REAL(x)*SCM_IMAG(y)+SCM_IMAG(x)*SCM_REAL(y));
+	  return scm_makdbl (SCM_REAL (x) * SCM_REAL (y)
+			     - SCM_IMAG (x) * SCM_IMAG (y),
+			     SCM_REAL (x) * SCM_IMAG (y)
+			     + SCM_IMAG (x) * SCM_REAL (y));
 	else
-	return scm_makdbl(SCM_REAL(x)*SCM_REALPART(y), SCM_IMAG(x)*SCM_REALPART(y));
+	  return scm_makdbl (SCM_REAL (x) * SCM_REALPART (y),
+			     SCM_IMAG (x) * SCM_REALPART(y));
+      }
     return scm_makdbl (SCM_REALPART (x) * SCM_REALPART (y),
 		       SCM_CPLXP (y) ? SCM_REALPART (x) * SCM_IMAG (y) : 0.0);
   }

libguile/srcprop.c

@@ -284,18 +284,26 @@ scm_set_source_property_x (obj, key, datum)
       p = SCM_EOL;
     }
   if (scm_i_breakpoint == key)
+    {
       if (SCM_FALSEP (datum))
 	CLEARSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p)
 			 ? p
 			 : SCM_WHASHSET (scm_source_whash, h,
-				   scm_make_srcprops (0, 0, SCM_UNDEFINED,
+					 scm_make_srcprops (0,
-						       SCM_UNDEFINED, p)));
+							    0,
+							    SCM_UNDEFINED,
+							    SCM_UNDEFINED,
+							    p)));
       else
 	SETSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p)
 		       ? p
 		       : SCM_WHASHSET (scm_source_whash, h,
-				 scm_make_srcprops (0, 0, SCM_UNDEFINED,
+				       scm_make_srcprops (0,
-						     SCM_UNDEFINED, p)));
+							  0,
+							  SCM_UNDEFINED,
+							  SCM_UNDEFINED,
+							  p)));
+    }
   else if (scm_i_line == key)
     {
       if (SCM_NIMP (p) && SRCPROPSP (p))

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