From bdc0d2c86280b21957385f128069dcff96f0792d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 Jan 2011 08:12:33 -0700 Subject: [PATCH] like f57b431c2e6466c (missed other case) --- src/racket/src/jit.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c index 7f550bf9b7..ffb10a0f0a 100644 --- a/src/racket/src/jit.c +++ b/src/racket/src/jit.c @@ -2465,7 +2465,8 @@ static int is_simple(Scheme_Object *obj, int depth, int just_markless, mz_jit_st break; 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; if (just_markless) { return is_noncm(((Scheme_App_Rec *)obj)->args[0], jitter, depth,