From 01e2a66d2629f317f4b223732d4648b4b41bdaa5 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Mon, 16 Dec 1996 22:17:57 +0000
Subject: [PATCH] * ramap.c (scm_ra_sum, scm_ra_difference, scm_ra_product,
 scm_ra_divide): Properly terminate statements passed as arguments to IVDEP
 macros.  (Thanks to Bernard Urban.)

---
 libguile/ramap.c | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/libguile/ramap.c b/libguile/ramap.c
index 7d721bd83..a139566fc 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -923,7 +923,7 @@ scm_ra_sum (ra0, ras)
 	      long *v1 = SCM_VELTS (ra1);
 	      IVDEP (ra0 != ra1,
 		     for (; n-- > 0; i0 += inc0, i1 += inc1)
-		     v0[i0] += v1[i1]);
+		     v0[i0] += v1[i1];)
 	      break;
 	    }
 #ifdef SCM_FLOATS
@@ -934,7 +934,7 @@ scm_ra_sum (ra0, ras)
 	      float *v1 = (float *) SCM_VELTS (ra1);
 	      IVDEP (ra0 != ra1,
 		     for (; n-- > 0; i0 += inc0, i1 += inc1)
-		     v0[i0] += v1[i1]);
+		     v0[i0] += v1[i1];)
 	      break;
 	    }
 #endif /* SCM_SINGLES */
@@ -944,7 +944,7 @@ scm_ra_sum (ra0, ras)
 	      double *v1 = (double *) SCM_VELTS (ra1);
 	      IVDEP (ra0 != ra1,
 		     for (; n-- > 0; i0 += inc0, i1 += inc1)
-		     v0[i0] += v1[i1]);
+		     v0[i0] += v1[i1];)
 	      break;
 	    }
 	  case scm_tc7_cvect:
@@ -1043,7 +1043,7 @@ scm_ra_difference (ra0, ras)
 	    float *v1 = (float *) SCM_VELTS (ra1);
 	    IVDEP (ra0 != ra1,
 		   for (; n-- > 0; i0 += inc0, i1 += inc1)
-		   v0[i0] -= v1[i1]);
+		   v0[i0] -= v1[i1];)
 	    break;
 	  }
 #endif /* SCM_SINGLES */
@@ -1053,7 +1053,7 @@ scm_ra_difference (ra0, ras)
 	    double *v1 = (double *) SCM_VELTS (ra1);
 	    IVDEP (ra0 != ra1,
 		   for (; n-- > 0; i0 += inc0, i1 += inc1)
-		   v0[i0] -= v1[i1]);
+		   v0[i0] -= v1[i1];)
 	    break;
 	  }
 	case scm_tc7_cvect:
@@ -1110,7 +1110,7 @@ scm_ra_product (ra0, ras)
 	      long *v1 = SCM_VELTS (ra1);
 	      IVDEP (ra0 != ra1,
 		     for (; n-- > 0; i0 += inc0, i1 += inc1)
-		     v0[i0] *= v1[i1]);
+		     v0[i0] *= v1[i1];)
 	      break;
 	    }
 #ifdef SCM_FLOATS
@@ -1121,7 +1121,7 @@ scm_ra_product (ra0, ras)
 	      float *v1 = (float *) SCM_VELTS (ra1);
 	      IVDEP (ra0 != ra1,
 		     for (; n-- > 0; i0 += inc0, i1 += inc1)
-		     v0[i0] *= v1[i1]);
+		     v0[i0] *= v1[i1];)
 	      break;
 	    }
 #endif /* SCM_SINGLES */
@@ -1131,7 +1131,7 @@ scm_ra_product (ra0, ras)
 	      double *v1 = (double *) SCM_VELTS (ra1);
 	      IVDEP (ra0 != ra1,
 		     for (; n-- > 0; i0 += inc0, i1 += inc1)
-		     v0[i0] *= v1[i1]);
+		     v0[i0] *= v1[i1];)
 	      break;
 	    }
 	  case scm_tc7_cvect:
@@ -1233,7 +1233,7 @@ scm_ra_divide (ra0, ras)
 	    float *v1 = (float *) SCM_VELTS (ra1);
 	    IVDEP (ra0 != ra1,
 		   for (; n-- > 0; i0 += inc0, i1 += inc1)
-		   v0[i0] /= v1[i1]);
+		   v0[i0] /= v1[i1];)
 	    break;
 	  }
 #endif /* SCM_SINGLES */
@@ -1243,7 +1243,7 @@ scm_ra_divide (ra0, ras)
 	    double *v1 = (double *) SCM_VELTS (ra1);
 	    IVDEP (ra0 != ra1,
 		   for (; n-- > 0; i0 += inc0, i1 += inc1)
-		   v0[i0] /= v1[i1]);
+		   v0[i0] /= v1[i1];)
 	    break;
 	  }
 	case scm_tc7_cvect: