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

fix incorrect variable reference in the compiler

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-27 06:07:41 -07:00
parent ada6b8c5d1
commit f691d4b68c
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

@ -5163,7 +5163,7 @@ static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimiz
/* Register type based on setter succeeding: */ /* Register type based on setter succeeding: */
if (!SCHEME_NULLP(SCHEME_PROC_SHAPE_IDENTITY(alt)) 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, add_type(info, app->rand1, scheme_make_struct_proc_shape(STRUCT_PROC_SHAPE_PRED,
SCHEME_PROC_SHAPE_IDENTITY(alt))); SCHEME_PROC_SHAPE_IDENTITY(alt)));
} }