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

handle case where native trace in sub-cont is NULL

Browse Source 
svn: r7396
This commit is contained in:
Matthew Flatt 2007-09-22 00:50:09 +00:00
parent 3f7ef88416
commit 9c48cee548
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4997,6 +4997,7 @@ internal_call_cc (int argc, Scheme_Object *argv[])
/* Maybe a single-function loop, where we re-allocated the
last pair in the trace, but it's the same name: */
|| (SCHEME_PAIRP(ret)
&& sub_cont->native_trace
&& SCHEME_PAIRP(sub_cont->native_trace)
&& SAME_OBJ(SCHEME_CAR(ret), SCHEME_CAR(sub_cont->native_trace))
&& SAME_OBJ(SCHEME_CDR(ret), SCHEME_CDR(sub_cont->native_trace))))