aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/eval.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c
index 26d1ce967a7..d118a30804c 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2094,7 +2094,8 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
2094 return form; 2094 return form;
2095 2095
2096 QUIT; 2096 QUIT;
2097 if (consing_since_gc > gc_cons_combined_threshold) 2097 if (consing_since_gc > gc_cons_threshold
2098 && consing_since_gc > gc_relative_threshold)
2098 { 2099 {
2099 GCPRO1 (form); 2100 GCPRO1 (form);
2100 Fgarbage_collect (); 2101 Fgarbage_collect ();
@@ -2794,7 +2795,8 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
2794 register int i; 2795 register int i;
2795 2796
2796 QUIT; 2797 QUIT;
2797 if (consing_since_gc > gc_cons_combined_threshold) 2798 if (consing_since_gc > gc_cons_threshold
2799 && consing_since_gc > gc_relative_threshold)
2798 Fgarbage_collect (); 2800 Fgarbage_collect ();
2799 2801
2800 if (++lisp_eval_depth > max_lisp_eval_depth) 2802 if (++lisp_eval_depth > max_lisp_eval_depth)