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

Add SCHEME_PRIM_PRODUCES_FIXNUM flag to unsafe-fxvector-ref

Browse Source
This commit is contained in:
Gustavo Massaccesi 2015-01-24 09:51:04 -03:00 committed by Matthew Flatt
parent 6d5597c090
commit 6ab68eb97d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/racket/src/number.c
View File

@ -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!",