From 54f97b5489a013d006b3effd9c09121999759c0b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 11 Feb 2006 14:13:05 +0000 Subject: [PATCH] arithmetic-shift inlining does not work due to lightning restriction svn: r2198 --- 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 d91d19fa14..abffa38623 100644 --- a/src/mzscheme/src/number.c +++ b/src/mzscheme/src/number.c @@ -281,7 +281,7 @@ scheme_init_number (Scheme_Env *env) scheme_add_global_constant("bitwise-not", p, env); p = scheme_make_folding_prim(scheme_bitwise_shift, "arithmetic-shift", 2, 2, 1); - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + /* SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; */ scheme_add_global_constant("arithmetic-shift", p, env); scheme_add_global_constant("gcd",