From 2670a1d0757fd774ad5d530de9c513ef5a566774 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 31 Mar 2006 21:38:08 +0000
Subject: [PATCH] double-check that nested continuation is really nested

svn: r2561
---
 src/mzscheme/src/setjmpup.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/mzscheme/src/setjmpup.c b/src/mzscheme/src/setjmpup.c
index efc45072a0..768c57472c 100644
--- a/src/mzscheme/src/setjmpup.c
+++ b/src/mzscheme/src/setjmpup.c
@@ -457,6 +457,12 @@ int scheme_setjmpup_relative(Scheme_Jumpup_Buf *b, void *base,
 
   FLUSH_REGISTER_WINDOWS;
 
+  if (c) {
+    if (STK_COMP(c->buf.stack_from, start)) {
+      c = NULL;
+    }
+  }
+
   if (STK_COMP((unsigned long)start, (unsigned long)&local))
     start = (void *)&local;