From 9cf7f88606cdc81eeb22f531cb87dd29805cdd33 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 27 Apr 2011 14:56:44 -0600 Subject: [PATCH] fix `procedure-arity-includes?' for non-futures, non-places builds --- src/racket/src/jit.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/jit.h b/src/racket/src/jit.h index bac04bc6c8..3360f3019d 100644 --- a/src/racket/src/jit.h +++ b/src/racket/src/jit.h @@ -1032,7 +1032,7 @@ static void emit_indentation(mz_jit_state *jitter) # define ts_make_fsemaphore scheme_make_fsemaphore # define mz_generate_direct_prim(direct_only, first_arg, reg, prim_indirect) \ (mz_direct_only(direct_only), first_arg, mz_finishr_direct_prim(reg, prim_indirect)) -# define mz_finish_prim_lwe(prim, refr) (void)mz_finish_lwe(ts_scheme_equal, refr) +# define mz_finish_prim_lwe(prim, refr) (void)mz_finish_lwe(prim, refr) #endif /**********************************************************************/