From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 29 Oct 2010 05:57:41 +0000 (+0000)
Subject: Convert INTERRUPTABLE_EXTENT to use `do { ... } while (0)'.
X-Git-Tag: 20101212-Gtk~27
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12cb0d525ddc35056f32affb2d732b5e5827a91a;p=mit-scheme.git

Convert INTERRUPTABLE_EXTENT to use `do { ... } while (0)'.
---

diff --git a/src/microcode/intext.h b/src/microcode/intext.h
index b8e657736..4d7aa0c14 100644
--- a/src/microcode/intext.h
+++ b/src/microcode/intext.h
@@ -42,7 +42,7 @@ extern struct interruptable_extent * enter_interruptable_extent (void);
 extern int enter_interruption_extent (void);
 extern void exit_interruption_extent (void);
 
-#define INTERRUPTABLE_EXTENT(result, expression)			\
+#define INTERRUPTABLE_EXTENT(result, expression) do			\
 {									\
   int saved_errno;							\
   struct interruptable_extent * INTERRUPTABLE_EXTENT_frame =		\
@@ -60,6 +60,6 @@ extern void exit_interruption_extent (void);
   saved_errno = errno;							\
   dstack_set_position (current_interruptable_extent -> position);	\
   errno = saved_errno;							\
-}
+} while (0)
 
 #endif /* SCM_INTEXT_H */