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

fix mangling of native stack traces

Browse Source 
svn: r2146
This commit is contained in:
Matthew Flatt 2006-02-06 19:03:50 +00:00
parent d7feb17c55
commit af252e9c94
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3586,6 +3586,19 @@ scheme_get_stack_trace(Scheme_Object *mark_set)
a[1] = scheme_stack_dump_key; a[1] = scheme_stack_dump_key;
l = extract_cc_marks(2, a); l = extract_cc_marks(2, a);
} else {
/* Copy l: */
Scheme_Object *first = scheme_null, *last = NULL;
while (SCHEME_PAIRP(l)) {
n = scheme_make_pair(SCHEME_CAR(l), scheme_null);
if (last)
SCHEME_CDR(last) = n;
else
first = n;
last = n;
l = SCHEME_CDR(l);
}
l = first;
} }
/* Filter out NULLs */ /* Filter out NULLs */