From 4d03ffb57d03fdf4b26c90a90056c8e1335c1faa Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 Jul 2011 14:53:20 -0600
Subject: [PATCH] another JIT tweak

---
 src/racket/src/jit.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c
index 1852654f8c..6adff06cae 100644
--- a/src/racket/src/jit.c
+++ b/src/racket/src/jit.c
@@ -549,6 +549,15 @@ int scheme_is_simple(Scheme_Object *obj, int depth, int just_markless, mz_jit_st
     return 1;
     break;
 
+  case scheme_sequence_type:
+    if (depth) {
+      Scheme_Sequence *seq = (Scheme_Sequence *)obj;
+
+      return scheme_is_simple(seq->array[seq->count - 1], depth - 1, 
+                              just_markless, jitter, stack_start);
+    }
+    break;
+
   case scheme_branch_type:
     if (depth) {
       Scheme_Branch_Rec *b = (Scheme_Branch_Rec *)obj;