From 8f27112c832a936c33cae217699bd7868e518f19 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 16 Aug 2011 19:29:35 -0600 Subject: [PATCH] slightly safer CPP macros --- src/racket/src/syntax.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c index a61ee0e0e2..e36498a742 100644 --- a/src/racket/src/syntax.c +++ b/src/racket/src/syntax.c @@ -358,14 +358,14 @@ XFORM_NONGCING static MZ_INLINE void DO_WRAP_POS_INC(Wrap_Pos *w) } #define WRAP_POS Wrap_Pos -#define WRAP_POS_INIT(w, wr) w.l = wr; WRAP_POS_SET_FIRST(&w) +#define WRAP_POS_INIT(w, wr) (w.l = wr, WRAP_POS_SET_FIRST(&w)) #define WRAP_POS_INC(w) DO_WRAP_POS_INC(&w) #define WRAP_POS_INIT_END(w) (w.l = scheme_null, w.a = NULL, w.is_limb = 0, w.pos = 0) #define WRAP_POS_END_P(w) SCHEME_NULLP(w.l) #define WRAP_POS_FIRST(w) w.a -#define WRAP_POS_COPY(w, w2) w.l = (w2).l; w.a = (w2).a; w.is_limb = (w2).is_limb; w.pos = (w2).pos +#define WRAP_POS_COPY(w, w2) (w.l = (w2).l, w.a = (w2).a, w.is_limb = (w2).is_limb, w.pos = (w2).pos) /* Walking backwards through one chunk: */