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

fix `module' non-simplification of syntax during expansion

Browse Source 
This change affects the time required to `expand' a module.
This commit is contained in:
Matthew Flatt 2013-05-06 15:33:12 -06:00
parent f60803c300
commit 34d0037b37
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/racket/src/module.c
View File

@ -8831,7 +8831,7 @@ static Scheme_Object *do_module_begin_at_phase(Scheme_Object *form, Scheme_Comp_
m = scheme_optimize_expr(m, oi, 0); m = scheme_optimize_expr(m, oi, 0);
/* Simplify only in compile mode; it is too slow in expand mode. */ /* Simplify only in compile mode; it is too slow in expand mode. */
rp = scheme_resolve_prefix(1, eenv->prefix, rec[drec].comp); rp = scheme_resolve_prefix(1, eenv->prefix, !erec);
ri = scheme_resolve_info_create(rp); ri = scheme_resolve_info_create(rp);
scheme_enable_expression_resolve_lifts(ri); scheme_enable_expression_resolve_lifts(ri);
m = scheme_resolve_expr(m, ri); m = scheme_resolve_expr(m, ri);