Commit 4f18a4ed authored by Stefan Monnier's avatar Stefan Monnier

* src/eval.c (Fmacroexpand): Stop if the macro returns the same form.

parent 0e8bbf66
2012-06-08 Stefan Monnier <monnier@iro.umontreal.ca>
* eval.c (Fmacroexpand): Stop if the macro returns the same form.
2012-06-07 Paul Eggert <eggert@cs.ucla.edu>
* doprnt.c (doprnt): Truncate multibyte char correctly.
......
......@@ -1020,7 +1020,13 @@ definitions to shadow the loaded ones for use in file byte-compilation. */)
if (NILP (expander))
break;
}
form = apply1 (expander, XCDR (form));
{
Lisp_Object newform = apply1 (expander, XCDR (form));
if (EQ (form, newform))
break;
else
form = newform;
}
}
return form;
}
......
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