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

like f57b431c2e (missed other case)

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-01 08:12:33 -07:00
parent 7cac1f6ac2
commit bdc0d2c862
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/jit.c
View File

@ -2465,7 +2465,8 @@ static int is_simple(Scheme_Object *obj, int depth, int just_markless, mz_jit_st
break; break;
case scheme_application_type: case scheme_application_type:
if (inlined_nary_prim(((Scheme_App_Rec *)obj)->args[0], obj)) if (inlined_nary_prim(((Scheme_App_Rec *)obj)->args[0], obj)
&& !SAME_OBJ(((Scheme_App_Rec *)obj)->args[0], scheme_values_func))
return 1; return 1;
if (just_markless) { if (just_markless) {
return is_noncm(((Scheme_App_Rec *)obj)->args[0], jitter, depth, return is_noncm(((Scheme_App_Rec *)obj)->args[0], jitter, depth,