From 856163dbe8bdff05044ae80c11f09438b813afc1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 13 Jul 2005 05:31:35 +0000 Subject: [PATCH] (Feval, Ffuncall): Use gc_cons_combined_threshold. --- src/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5