# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1122145749 0
# Node ID 9e774d6510f1245fe028a521fc03f17a93afa2b9
# Parent  6926a2764ae69f0f0f8992a36b079c0afae16068
(Feval, Ffuncall): Test gc_cons_threshold and
gc_relative_threshold, one by one.

diff -r 6926a2764ae6 -r 9e774d6510f1 src/eval.c
--- 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)