From f691d4b68cb375eafbe48d935d057ad5ec1910b0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Feb 2018 06:07:41 -0700 Subject: [PATCH] fix incorrect variable reference in the compiler --- 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 d2df15af60..fe9c020de8 100644 --- a/racket/src/racket/src/optimize.c +++ b/racket/src/racket/src/optimize.c @@ -5163,7 +5163,7 @@ static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimiz /* Register type based on setter succeeding: */ if (!SCHEME_NULLP(SCHEME_PROC_SHAPE_IDENTITY(alt)) - && SAME_TYPE(SCHEME_TYPE(rand), scheme_ir_local_type)) + && SAME_TYPE(SCHEME_TYPE(app->rand1), scheme_ir_local_type)) add_type(info, app->rand1, scheme_make_struct_proc_shape(STRUCT_PROC_SHAPE_PRED, SCHEME_PROC_SHAPE_IDENTITY(alt))); }