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

Add SCHEME_PRIM_WANTS_FLONUM_SECOND flag to flexpt

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

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

@ -1012,7 +1012,7 @@ void scheme_init_flfxnum_number(Scheme_Env *env)
else else
flags = SCHEME_PRIM_SOMETIMES_INLINED; flags = SCHEME_PRIM_SOMETIMES_INLINED;
SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags
| SCHEME_PRIM_WANTS_FLONUM_FIRST | SCHEME_PRIM_WANTS_FLONUM_BOTH
| SCHEME_PRIM_PRODUCES_FLONUM); | SCHEME_PRIM_PRODUCES_FLONUM);
scheme_add_global_constant("flexpt", p, env); scheme_add_global_constant("flexpt", p, env);
@ -1277,7 +1277,7 @@ void scheme_init_extfl_number(Scheme_Env *env)
else else
flags = SCHEME_PRIM_SOMETIMES_INLINED; flags = SCHEME_PRIM_SOMETIMES_INLINED;
SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags
| SCHEME_PRIM_WANTS_EXTFLONUM_FIRST | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH
| SCHEME_PRIM_PRODUCES_EXTFLONUM); | SCHEME_PRIM_PRODUCES_EXTFLONUM);
scheme_add_global_constant("extflexpt", p, env); scheme_add_global_constant("extflexpt", p, env);
} }