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

optimizer: allow wcm with multiple return value in noncm_expression

Browse Source
This commit is contained in:
Gustavo Massaccesi 2016-12-15 10:39:16 -03:00
parent 22d61c41d5
commit f2be44dea4
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/optimize.c
View File

@ -1922,7 +1922,7 @@ static int do_single_valued_noncm_expression(Scheme_Object *expr, int fuel, int
if (non_cm) {
/* To avoid being sensitive to tail position, the body must not inspect
the continuation at all. */
return scheme_omittable_expr(wcm->body, 1, fuel, 0, NULL, NULL);
return scheme_omittable_expr(wcm->body, s_v ? 1 : -1, 5, 0, NULL, NULL);
} else {
expr = wcm->body;
}