From 431321f2cb056cd7e6a5ec988a91262c030d5f32 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 23 Jun 2014 10:44:16 +0100 Subject: [PATCH] fix use of wrong comparsion macro The wrong comparison could possibly (though not likely) cause an operation-skipping optimization to be missed. --- racket/src/racket/src/optimize.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c index 9d1efbde33..5e47df025d 100644 --- a/racket/src/racket/src/optimize.c +++ b/racket/src/racket/src/optimize.c @@ -628,7 +628,7 @@ static Scheme_Object *optimize_ignored(Scheme_Object *e, Optimize_Info *info, in { 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)) return do_make_discarding_sequence(app->rand, scheme_void, info, 1, 0); }