Mercurial > emacs
comparison src/eval.c @ 64271:66b8e5d68b93
(Feval, Ffuncall): Use gc_cons_combined_threshold.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 13 Jul 2005 05:31:35 +0000 |
| parents | c6d6fa805aad |
| children | 34bf5187c5aa fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64270:291a233cbda9 | 64271:66b8e5d68b93 |
|---|---|
| 2091 return Fsymbol_value (form); | 2091 return Fsymbol_value (form); |
| 2092 if (!CONSP (form)) | 2092 if (!CONSP (form)) |
| 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 (); |
| 2100 UNGCPRO; | 2100 UNGCPRO; |
| 2101 } | 2101 } |
| 2791 struct backtrace backtrace; | 2791 struct backtrace backtrace; |
| 2792 register Lisp_Object *internal_args; | 2792 register Lisp_Object *internal_args; |
| 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) |
| 2800 { | 2800 { |
| 2801 if (max_lisp_eval_depth < 100) | 2801 if (max_lisp_eval_depth < 100) |