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

Mark immutable? as omitable

Browse Source
This commit is contained in:
Gustavo Massaccesi 2014-12-05 16:23:52 -03:00 committed by Matthew Flatt
parent ababa86c44
commit 58ef3fdaa8
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/racket-test/tests/racket/optimize.rktl
View File

@ -2271,6 +2271,7 @@
(test-pred 'impersonator?) (test-pred 'impersonator?)
(test-pred 'procedure?) (test-pred 'procedure?)
(test-pred 'eof-object?) (test-pred 'eof-object?)
(test-pred 'immutable?)
(test-pred 'not)) (test-pred 'not))
(let ([test-bin (let ([test-bin

8
racket/src/racket/src/list.c
View File

@ -272,11 +272,9 @@ scheme_init_list (Scheme_Env *env)
| SCHEME_PRIM_IS_OMITABLE); | SCHEME_PRIM_IS_OMITABLE);
scheme_add_global_constant ("list*", p, env); scheme_add_global_constant ("list*", p, env);
scheme_add_global_constant("immutable?", p = scheme_make_folding_prim(immutablep, "immutable?", 1, 1, 1);
scheme_make_folding_prim(immutablep, SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_OMITABLE);
"immutable?", scheme_add_global_constant("immutable?", p, env);
1, 1, 1),
env);
p = scheme_make_immed_prim(length_prim, "length", 1, 1); p = scheme_make_immed_prim(length_prim, "length", 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);