From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 13 Jul 2005 05:31:35 +0000 (+0000)
Subject: (Feval, Ffuncall): Use gc_cons_combined_threshold.
X-Git-Tag: emacs-pretest-22.0.90~8194
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=856163dbe8bdff05044ae80c11f09438b813afc1;p=emacs.git

(Feval, Ffuncall): Use gc_cons_combined_threshold.
---

diff --git a/src/eval.c b/src/eval.c
index 45effae295c..3b4e9fe0324 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2093,7 +2093,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
     return form;
 
   QUIT;
-  if (consing_since_gc > gc_cons_threshold)
+  if (consing_since_gc > gc_cons_combined_threshold)
     {
       GCPRO1 (form);
       Fgarbage_collect ();
@@ -2793,7 +2793,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS)  */)
   register int i;
 
   QUIT;
-  if (consing_since_gc > gc_cons_threshold)
+  if (consing_since_gc > gc_cons_combined_threshold)
     Fgarbage_collect ();
 
   if (++lisp_eval_depth > max_lisp_eval_depth)