[Emacs-diffs] Changes to emacs/src/eval.c [lexbind]

[Miles Bader]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.189.2.8 emacs/src/eval.c:1.189.2.9
*** emacs/src/eval.c:1.189.2.8  Tue Apr 13 10:12:15 2004
--- emacs/src/eval.c    Tue Jul  6 09:31:29 2004
***************
*** 3491,3496 ****
--- 3491,3515 ----
  
  
  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,