summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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) \
{ \