fix prompt-abort misinterpreted as prompt-trampoline-to-continuation

svn: r4711
2006-10-30 08:55:14 +00:00 · 2006-10-30 08:55:14 +00:00 · 20761b8589
commit 20761b8589
parent 4d3c8fc675
1 changed files with 2 additions and 1 deletions
--- 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)))) {