diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-06-01 00:42:58 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-06-01 00:42:58 +0200 |
commit | 1b68d6276260f68b07103fc6a792effcc135c063 (patch) | |
tree | ad6aef5532856ed1ff314746a5ac57eba9c56ca4 /libguile/vm-i-scheme.c | |
parent | daccfef47b6b226226754ccbb515a56cafea58b2 (diff) | |
download | guile-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.c | 15 |
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) \ { \ |