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

fix misuse of comparison macro

Browse Source
This commit is contained in:
Matthew Flatt 2015-09-20 21:06:38 -06:00
parent 1d5b34f48b
commit 93efe503ad
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/racket/src/optimize.c
View File

@ -2802,8 +2802,8 @@ static Scheme_Object *optimize_application(Scheme_Object *o, Optimize_Info *info
le = optimize_for_inline(info, app->args[i], n - 1, app, NULL, NULL, &rator_flags, context, 1, 0); le = optimize_for_inline(info, app->args[i], n - 1, app, NULL, NULL, &rator_flags, context, 1, 0);
if (le) if (le)
return le; return le;
if (SAME_TYPE(app->args[0], scheme_values_func) if (SAME_OBJ(app->args[0], scheme_values_func)
|| SAME_TYPE(app->args[0], scheme_apply_proc)) || SAME_OBJ(app->args[0], scheme_apply_proc))
info->maybe_values_argument = 1; info->maybe_values_argument = 1;
rator_apply_escapes = info->escapes; rator_apply_escapes = info->escapes;
} }
@ -3528,8 +3528,8 @@ static Scheme_Object *optimize_application3(Scheme_Object *o, Optimize_Info *inf
rator_apply_escapes = info->escapes; rator_apply_escapes = info->escapes;
} }
if (SAME_TYPE(app->rator, scheme_values_func) if (SAME_OBJ(app->rator, scheme_values_func)
|| SAME_TYPE(app->rator, scheme_apply_proc)) || SAME_OBJ(app->rator, scheme_apply_proc))
info->maybe_values_argument = 1; info->maybe_values_argument = 1;
/* 1st arg */ /* 1st arg */