Mercurial > emacs

diff src/eval.c @ 64613:9e774d6510f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Feval, Ffuncall): Test gc_cons_threshold and gc_relative_threshold, one by one.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Jul 2005 19:09:09 +0000
parents 72d33fd23736
children 8cbdc86a4f55
line wrap: on
line diff
--- a/src/eval.c	Sat Jul 23 19:08:32 2005 +0000
+++ b/src/eval.c	Sat Jul 23 19:09:09 2005 +0000
@@ -2094,7 +2094,8 @@
     return form;
 
   QUIT;
-  if (consing_since_gc > gc_cons_combined_threshold)
+  if (consing_since_gc > gc_cons_threshold
+      && consing_since_gc > gc_relative_threshold)
     {
       GCPRO1 (form);
       Fgarbage_collect ();
@@ -2794,7 +2795,8 @@
   register int i;
 
   QUIT;
-  if (consing_since_gc > gc_cons_combined_threshold)
+  if (consing_since_gc > gc_cons_threshold
+      && consing_since_gc > gc_relative_threshold)
     Fgarbage_collect ();
 
   if (++lisp_eval_depth > max_lisp_eval_depth)