From af252e9c94ba77430ab1b95de77626fa9c491bf6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 6 Feb 2006 19:03:50 +0000
Subject: [PATCH] fix mangling of native stack traces

svn: r2146
---
 src/mzscheme/src/fun.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index d78c9d7c66..b463b5f865 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -3586,6 +3586,19 @@ scheme_get_stack_trace(Scheme_Object *mark_set)
     a[1] = scheme_stack_dump_key;
     
     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 */