suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix call/cc inside composed continuation bug (PR 9264)

Browse Source 
svn: r9065
This commit is contained in:
Matthew Flatt 2008-03-22 12:40:51 +00:00
parent c47ffccb73
commit 5803928195
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/fun.c
View File

@ -5162,7 +5162,8 @@ internal_call_cc (int argc, Scheme_Object *argv[])
sub_cont = (Scheme_Cont *)scheme_extract_one_cc_mark(NULL, cont_key);
if (sub_cont && ((sub_cont->save_overflow != p->overflow)
|| (sub_cont->prompt_tag != prompt_tag)
|| (sub_cont->barrier_prompt != effective_barrier_prompt))) {
|| (sub_cont->barrier_prompt != effective_barrier_prompt)
|| (sub_cont->meta_continuation != p->meta_continuation))) {
sub_cont = NULL;
}
if (sub_cont && (sub_cont->ss.cont_mark_pos == MZ_CONT_MARK_POS)) {