summaryrefslogtreecommitdiff
path: root/libguile/vm-i-scheme.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-06-01 00:42:58 +0200
committerLudovic Courtès <ludo@gnu.org>2010-06-01 00:42:58 +0200
commit1b68d6276260f68b07103fc6a792effcc135c063 (patch)
treead6aef5532856ed1ff314746a5ac57eba9c56ca4 /libguile/vm-i-scheme.c
parentdaccfef47b6b226226754ccbb515a56cafea58b2 (diff)
downloadguile-1b68d6276260f68b07103fc6a792effcc135c063.tar.gz
Fix `VM_VALIDATE_BYTEVECTOR' macro wrt. trailing semicolons.
* libguile/vm-i-scheme.c (VM_VALIDATE_BYTEVECTOR): Enclose in "do { } while (0)".
Diffstat (limited to 'libguile/vm-i-scheme.c')
-rw-r--r--libguile/vm-i-scheme.c15
1 files 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) \
{ \