Commit 8f6bda75 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Feval, Ffuncall): Test gc_cons_threshold and

gc_relative_threshold, one by one.
parent 9bd32d8c
......@@ -2094,7 +2094,8 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
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 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment