From 04454678ebfaaeefffd74dcec2de2c95d8549310 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Aug 2013 16:14:46 -0600
Subject: [PATCH] remove unnecessary stack-unwind test

The test was meant to detect a bad traversal step, but it could unnecessarily
truncate the stack traversal when encountering recursive calls.
---
 racket/src/racket/src/jitstack.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/racket/src/racket/src/jitstack.c b/racket/src/racket/src/jitstack.c
index eb6b538958..fd5dd67bb2 100644
--- a/racket/src/racket/src/jitstack.c
+++ b/racket/src/racket/src/jitstack.c
@@ -465,11 +465,9 @@ Scheme_Object *scheme_native_stack_trace(void)
 # endif
 	manual_unw = 0;
       } else {
-        void *prev_q = q;
         unw_step(&c);
         q = (void *)unw_get_ip(&c);
-        if ((q == prev_q)
-	    || unw_reset_bad_ptr_flag(&c))
+        if (unw_reset_bad_ptr_flag(&c))
           break;
       }
     }