suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix no-places, no-futures build

Browse Source
This commit is contained in:
Matthew Flatt 2015-07-02 15:52:40 -06:00
parent 37ab5a053f
commit e59bea341b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/racket/src/module.c
View File

@ -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)