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 'procedure?)
(test-pred 'eof-object?)
(test-pred 'immutable?)
(test-pred 'not))
(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_add_global_constant ("list*", p, env);
scheme_add_global_constant("immutable?",
scheme_make_folding_prim(immutablep,
"immutable?",
1, 1, 1),
env);
p = scheme_make_folding_prim(immutablep, "immutable?", 1, 1, 1);
SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_OMITABLE);
scheme_add_global_constant("immutable?", p, env);
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);