From 20761b8589eac43d917fa493a4d417365a4572ad Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 30 Oct 2006 08:55:14 +0000
Subject: [PATCH] fix prompt-abort misinterpreted as
 prompt-trampoline-to-continuation

svn: r4711
---
 src/mzscheme/src/fun.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index f5d4ae1743..b78da3959b 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -4872,7 +4872,8 @@ static Scheme_Object *compose_continuation(Scheme_Cont *cont, int exec_chain, Sc
             jumping_to_continuation = #t. */
     if (!v && ((loop_prompt
                 && SAME_OBJ((Scheme_Object *)p->cjs.jumping_to_continuation,
-                            loop_prompt))
+                            loop_prompt)
+                && p->cjs.is_escape)
                || (!loop_prompt
                    && p->cjs.jumping_to_continuation
                    && SCHEME_VECTORP((Scheme_Object *)p->cjs.jumping_to_continuation)))) {