From abbb8c21c73975d85a3f7165551869337fff2b7f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 7 May 2008 21:15:18 +0000 Subject: [PATCH] don't fold 'fixnum?' svn: r9727 --- src/mzscheme/src/number.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mzscheme/src/number.c b/src/mzscheme/src/number.c index c76c6d6ba7..2349f2348b 100644 --- a/src/mzscheme/src/number.c +++ b/src/mzscheme/src/number.c @@ -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);