From 6ab68eb97df46bfcb75de611635ee98237cc0801 Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Sat, 24 Jan 2015 09:51:04 -0300 Subject: [PATCH] Add SCHEME_PRIM_PRODUCES_FIXNUM flag to unsafe-fxvector-ref --- racket/src/racket/src/number.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/src/racket/src/number.c b/racket/src/racket/src/number.c index 051f53c1d3..67e3fd6423 100644 --- a/racket/src/racket/src/number.c +++ b/racket/src/racket/src/number.c @@ -1406,7 +1406,8 @@ void scheme_init_unsafe_number(Scheme_Env *env) 2, 2); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED | SCHEME_PRIM_IS_UNSAFE_OMITABLE - | SCHEME_PRIM_IS_OMITABLE); + | SCHEME_PRIM_IS_OMITABLE + | SCHEME_PRIM_PRODUCES_FIXNUM); scheme_add_global_constant("unsafe-fxvector-ref", p, env); p = scheme_make_immed_prim(unsafe_fxvector_set, "unsafe-fxvector-set!",