Add SCHEME_PRIM_WANTS_FLONUM_SECOND flag to flexpt

This commit is contained in:
Gustavo Massaccesi 2015-01-24 21:43:03 -03:00 committed by Matthew Flatt
parent 6ab68eb97d
commit e36382d500

View File

@ -1012,7 +1012,7 @@ void scheme_init_flfxnum_number(Scheme_Env *env)
else
flags = SCHEME_PRIM_SOMETIMES_INLINED;
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_add_global_constant("flexpt", p, env);
@ -1277,7 +1277,7 @@ void scheme_init_extfl_number(Scheme_Env *env)
else
flags = SCHEME_PRIM_SOMETIMES_INLINED;
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_add_global_constant("extflexpt", p, env);
}