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

handle possible case where the current native trace is NULL

Browse Source 
svn: r7397
This commit is contained in:
Matthew Flatt 2007-09-22 00:53:14 +00:00
parent 9c48cee548
commit d1d9aea937
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

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