Commit 20d36253 authored by Dmitry Antipov's avatar Dmitry Antipov

* lread.c (readevalloop_eager_expand_eval): Add GCPRO and fix

bootstrap broken if GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE.
parent 5d27b6b6
......@@ -8,6 +8,9 @@
(GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5, GCPRO6, GCPRO7):
Minor restyle. If DEBUG_GCPRO, initialize extra fields.
* lread.c (readevalloop_eager_expand_eval): Add GCPRO and fix
bootstrap broken if GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE.
2014-09-11 Paul Eggert <eggert@cs.ucla.edu>
Pacify --enable-gcc-warnings when no window system is used.
......
......@@ -1782,15 +1782,17 @@ readevalloop_eager_expand_eval (Lisp_Object val, Lisp_Object macroexpand)
val = call2 (macroexpand, val, Qnil);
if (EQ (CAR_SAFE (val), Qprogn))
{
struct gcpro gcpro1;
Lisp_Object subforms = XCDR (val);
val = Qnil;
for (; CONSP (subforms); subforms = XCDR (subforms))
GCPRO1 (subforms);
for (val = Qnil; CONSP (subforms); subforms = XCDR (subforms))
val = readevalloop_eager_expand_eval (XCAR (subforms),
macroexpand);
UNGCPRO;
}
else
val = eval_sub (call2 (macroexpand, val, Qt));
return val;
}
......
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