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

don't fold 'fixnum?'

Browse Source 
svn: r9727
This commit is contained in:
Matthew Flatt 2008-05-07 21:15:18 +00:00
parent 9ce74d5378
commit abbb8c21c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/number.c
View File

@ -263,7 +263,7 @@ scheme_init_number (Scheme_Env *env)
SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_UNARY_INLINED;
scheme_add_global_constant("exact-positive-integer?", p, env);
p = scheme_make_folding_prim(fixnum_p, "fixnum?", 1, 1, 1);
p = scheme_make_noncm_prim(fixnum_p, "fixnum?", 1, 1);
SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_UNARY_INLINED;
scheme_add_global_constant("fixnum?", p, env);