diff options
| author | Stefan Monnier | 2005-07-13 05:31:35 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-07-13 05:31:35 +0000 |
| commit | 856163dbe8bdff05044ae80c11f09438b813afc1 (patch) | |
| tree | 4172eed56d153a013d5842d1646ad658e3430221 /src/eval.c | |
| parent | 2a7a50eaea867625fbe46e80fce41983f6ad2fc2 (diff) | |
| download | emacs-856163dbe8bdff05044ae80c11f09438b813afc1.tar.gz emacs-856163dbe8bdff05044ae80c11f09438b813afc1.zip | |
(Feval, Ffuncall): Use gc_cons_combined_threshold.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files 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, | |||
| 2093 | return form; | 2093 | return form; |
| 2094 | 2094 | ||
| 2095 | QUIT; | 2095 | QUIT; |
| 2096 | if (consing_since_gc > gc_cons_threshold) | 2096 | if (consing_since_gc > gc_cons_combined_threshold) |
| 2097 | { | 2097 | { |
| 2098 | GCPRO1 (form); | 2098 | GCPRO1 (form); |
| 2099 | Fgarbage_collect (); | 2099 | Fgarbage_collect (); |
| @@ -2793,7 +2793,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */) | |||
| 2793 | register int i; | 2793 | register int i; |
| 2794 | 2794 | ||
| 2795 | QUIT; | 2795 | QUIT; |
| 2796 | if (consing_since_gc > gc_cons_threshold) | 2796 | if (consing_since_gc > gc_cons_combined_threshold) |
| 2797 | Fgarbage_collect (); | 2797 | Fgarbage_collect (); |
| 2798 | 2798 | ||
| 2799 | if (++lisp_eval_depth > max_lisp_eval_depth) | 2799 | if (++lisp_eval_depth > max_lisp_eval_depth) |