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

fix bug in collecting marks to chain when an exception handler returns

Browse Source 
svn: r5232
This commit is contained in:
Matthew Flatt 2007-01-05 22:03:23 +00:00
parent ef8befa249
commit f93bce0d24
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

@ -5900,7 +5900,9 @@ static Scheme_Object *continuation_marks(Scheme_Thread *p,
find[pos].cache = (Scheme_Object *)pr;
} else {
cache = (Scheme_Object *)scheme_make_hash_table(SCHEME_hash_ptr);
scheme_hash_set((Scheme_Hash_Table *)cache, prompt_tag, (Scheme_Object *)pr);
scheme_hash_set((Scheme_Hash_Table *)cache,
prompt_tag ? prompt_tag : scheme_false,
(Scheme_Object *)pr);
find[pos].cache = cache;
}
if (last)