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

byte compiler: unsafe-make-place-local should not fold

Browse Source
This commit is contained in:
Matthew Flatt 2018-09-05 16:11:12 -06:00
parent c50d2753c0
commit 66b624e8ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/thread.c
View File

@ -689,7 +689,7 @@ scheme_init_unsafe_thread (Scheme_Startup_Env *env)
ADD_PRIM_W_ARITY("unsafe-remove-collect-callbacks", unsafe_remove_collect_callbacks, 1, 1, env); ADD_PRIM_W_ARITY("unsafe-remove-collect-callbacks", unsafe_remove_collect_callbacks, 1, 1, env);
/* Place locals are just boxes, so these operations are just aliases box operations */ /* Place locals are just boxes, so these operations are just aliases box operations */
p = scheme_make_folding_prim(unsafe_make_place_local, "unsafe-make-place-local", 1, 1, 1); p = scheme_make_prim_w_arity(unsafe_make_place_local, "unsafe-make-place-local", 1, 1);
SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_UNARY_INLINED SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_UNARY_INLINED
| SCHEME_PRIM_IS_OMITABLE_ALLOCATION); | SCHEME_PRIM_IS_OMITABLE_ALLOCATION);
scheme_addto_prim_instance("unsafe-make-place-local", p, env); scheme_addto_prim_instance("unsafe-make-place-local", p, env);