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

fix use of wrong comparsion macro

Browse Source 
The wrong comparison could possibly (though not likely) cause an
operation-skipping optimization to be missed.
This commit is contained in:
Matthew Flatt 2014-06-23 10:44:16 +01:00
parent d970d5aaea
commit 431321f2cb
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

@ -628,7 +628,7 @@ static Scheme_Object *optimize_ignored(Scheme_Object *e, Optimize_Info *info, in
{ {
Scheme_App2_Rec *app = (Scheme_App2_Rec *)e; Scheme_App2_Rec *app = (Scheme_App2_Rec *)e;
if (!SAME_TYPE(app->rator, scheme_values_func)) /* `values` is probably here to ensure a single result */ if (!SAME_OBJ(app->rator, scheme_values_func)) /* `values` is probably here to ensure a single result */
if (scheme_is_functional_nonfailing_primitive(app->rator, 1, expected_vals)) if (scheme_is_functional_nonfailing_primitive(app->rator, 1, expected_vals))
return do_make_discarding_sequence(app->rand, scheme_void, info, 1, 0); return do_make_discarding_sequence(app->rand, scheme_void, info, 1, 0);
} }