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

arithmetic-shift inlining does not work due to lightning restriction

Browse Source 
svn: r2198
This commit is contained in:
Matthew Flatt 2006-02-11 14:13:05 +00:00
parent 86bb5a60e1
commit 54f97b5489
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

@ -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",