diff options
| -rw-r--r-- | src/macros.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/macros.c b/src/macros.c index cd1c79071c0..80e3025a9a8 100644 --- a/src/macros.c +++ b/src/macros.c @@ -208,13 +208,14 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.") { Lisp_Object final; Lisp_Object tem; - int count = specpdl_ptr - specpdl; + int pdlcount = specpdl_ptr - specpdl; int repeat = 1; struct gcpro gcpro1; - if (!NILP (count)) - count = Fprefix_numeric_value (count), + if (!NILP (count)) { + count = Fprefix_numeric_value (count); repeat = XINT (count); + } final = indirect_function (macro); if (!STRINGP (final) && !VECTORP (final)) @@ -239,7 +240,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.") && (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))); UNGCPRO; - return unbind_to (count, Qnil); + return unbind_to (pdlcount, Qnil); } init_macros () |