From e59bea341b95eaa029f6f2b4c4814f51f6841d90 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 2 Jul 2015 15:52:40 -0600
Subject: [PATCH] fix no-places, no-futures build

---
 racket/src/racket/src/module.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/racket/src/racket/src/module.c b/racket/src/racket/src/module.c
index aedb4aada2..b645fb7c95 100644
--- a/racket/src/racket/src/module.c
+++ b/racket/src/racket/src/module.c
@@ -229,8 +229,12 @@ THREAD_LOCAL_DECL(Scheme_Object *scheme_begin_for_syntax_stx);
 
 THREAD_LOCAL_DECL(Scheme_Object *more_constant_stxes[NUM_MORE_CONSTANT_STXES]);
 
-/* XOA is XFORM_OK_ASSIGN from "schthread.h" */
-#define CONSTANT_STX(pos) XOA (more_constant_stxes[pos])
+#ifdef MZ_XFORM
+# define cnstXOA XFORM_OK_ASSIGN
+#else
+# define cnstXOA /* empty */
+#endif
+#define CONSTANT_STX(pos) cnstXOA (more_constant_stxes[pos])
 
 #define require_stx CONSTANT_STX(0)
 #define provide_stx CONSTANT_STX(1)