From 44e12626483675ca12e038ad8af81169506ba21e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Dec 2015 21:51:14 -0700 Subject: [PATCH] unbreak no-JIT build --- racket/src/racket/src/fun.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/fun.c b/racket/src/racket/src/fun.c index 886628c73a..0c38151030 100644 --- a/racket/src/racket/src/fun.c +++ b/racket/src/racket/src/fun.c @@ -3435,7 +3435,8 @@ static Scheme_Object *procedure_specialize(int argc, Scheme_Object *argv[]) { if (!SCHEME_PROCP(argv[0])) scheme_wrong_contract("procedure-specialize", "procedure?", 0, argc, argv); - + +#ifdef MZ_USE_JIT if (SAME_TYPE(SCHEME_TYPE(argv[0]), scheme_native_closure_type)) { Scheme_Native_Closure *nc = (Scheme_Native_Closure *)argv[0]; if ((nc->code->start_code == scheme_on_demand_jit_code) @@ -3447,7 +3448,8 @@ static Scheme_Object *procedure_specialize(int argc, Scheme_Object *argv[]) nc->code = data; } } - +#endif + return argv[0]; }