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

fix call_ec so that it works when used outside of Scheme evaluation, such as when raise_break is called to handle a ctl-c in MrEd

Browse Source 
svn: r4885
This commit is contained in:
Matthew Flatt 2006-11-18 23:34:52 +00:00
parent b03b114135
commit a0437ed206
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3281,7 +3281,9 @@ scheme_call_ec (int argc, Scheme_Object *argv[])
scheme_save_env_stack_w_thread(cont->envss, p1); scheme_save_env_stack_w_thread(cont->envss, p1);
p1->barrier_prompt->is_captured = 1; if (p1->barrier_prompt) /* can be NULL if this is for raise_break()
called outside any Scheme evaluation */
p1->barrier_prompt->is_captured = 1;
scheme_push_continuation_frame(&cframe); scheme_push_continuation_frame(&cframe);
scheme_set_cont_mark((Scheme_Object *)cont, scheme_true); scheme_set_cont_mark((Scheme_Object *)cont, scheme_true);