From 1b68d6276260f68b07103fc6a792effcc135c063 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 1 Jun 2010 00:42:58 +0200
Subject: [PATCH] Fix `VM_VALIDATE_BYTEVECTOR' macro wrt. trailing semicolons.

* libguile/vm-i-scheme.c (VM_VALIDATE_BYTEVECTOR): Enclose in "do { }
  while (0)".
---
 libguile/vm-i-scheme.c | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index c72b2d42b..2b0c78220 100644
--- a/libguile/vm-i-scheme.c
+++ b/libguile/vm-i-scheme.c
@@ -543,11 +543,16 @@ VM_DEFINE_INSTRUCTION (171, slot_set, "slot-set", 0, 3, 0)
 /*
  * Bytevectors
  */
-#define VM_VALIDATE_BYTEVECTOR(x)               \
-  if (SCM_UNLIKELY (!SCM_BYTEVECTOR_P (x)))     \
-    { finish_args = x;                          \
-      goto vm_error_not_a_bytevector;           \
-    }
+#define VM_VALIDATE_BYTEVECTOR(x)		\
+  do						\
+    {						\
+      if (SCM_UNLIKELY (!SCM_BYTEVECTOR_P (x)))	\
+	{					\
+	  finish_args = x;			\
+	  goto vm_error_not_a_bytevector;	\
+	}					\
+    }						\
+  while (0)
 
 #define BV_REF_WITH_ENDIANNESS(stem, fn_stem)                           \
 {                                                                       \