# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1085777679 0
# Node ID 97fe0ef6c077aa48168f80da2010dc0cedd3655a
# Parent  1e94f291a19c90df5cac6c083d87bfb44a574c6d
(mark_backtrace): New function.

diff -r 1e94f291a19c -r 97fe0ef6c077 src/eval.c
--- a/src/eval.c	Fri May 28 20:52:05 2004 +0000
+++ b/src/eval.c	Fri May 28 20:54:39 2004 +0000
@@ -3243,6 +3243,25 @@
 
 
 void
+mark_backtrace ()
+{
+  register struct backtrace *backlist;
+  register int i;
+
+  for (backlist = backtrace_list; backlist; backlist = backlist->next)
+    {
+      mark_object (*backlist->function);
+
+      if (backlist->nargs == UNEVALLED || backlist->nargs == MANY)
+	i = 0;
+      else
+	i = backlist->nargs - 1;
+      for (; i >= 0; i--)
+	mark_object (backlist->args[i]);
+    }
+}
+
+void
 syms_of_eval ()
 {
   DEFVAR_INT ("max-specpdl-size", &max_specpdl_size,