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

unbreak no-futures build

Browse Source
This commit is contained in:
Matthew Flatt 2016-12-06 14:29:41 -07:00
parent 6fe17be82f
commit 2605437617
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/jitinline.c
View File

@ -773,11 +773,11 @@ static Scheme_Object *alloc_structure(Scheme_Object *_stype, int argc)
return (Scheme_Object *)inst; return (Scheme_Object *)inst;
} }
#ifdef MZ_USE_FUTURES
static Scheme_Object *checked_make_vector(int argc) static Scheme_Object *checked_make_vector(int argc)
XFORM_SKIP_PROC XFORM_SKIP_PROC
/* Arguments on runstack */ /* Arguments on runstack */
{ {
#ifdef MZ_USE_FUTURES
Scheme_Object *vec, *val, *c = MZ_RUNSTACK[0]; Scheme_Object *vec, *val, *c = MZ_RUNSTACK[0];
if (SCHEME_INTP(c) if (SCHEME_INTP(c)
@ -812,11 +812,9 @@ static Scheme_Object *checked_make_vector(int argc)
return vec; return vec;
} else } else
#endif
return ts_scheme_checked_make_vector(argc, MZ_RUNSTACK); return ts_scheme_checked_make_vector(argc, MZ_RUNSTACK);
} }
#else
# define checked_make_vector ts_scheme_checked_make_vector
#endif
Scheme_Structure *scheme_jit_allocate_structure(int argc, Scheme_Struct_Type *stype) Scheme_Structure *scheme_jit_allocate_structure(int argc, Scheme_Struct_Type *stype)
{ {