2002-08-11 Andrew Choi <akochoi@shaw.ca>

[gnu-emacs] / src / macros.c

diff --git a/src/macros.c b/src/macros.c
index 82e305f8df36b24819b7349330dfe0eb7e247bd1..5f6d83b52d6ac43e9c6a77a2b435ec64e365d5ce 100644 (file)
--- a/src/macros.c
+++ b/src/macros.c
@@ -284,7 +284,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.  */)
 {
   Lisp_Object final;
   Lisp_Object tem;
-  int pdlcount = specpdl_ptr - specpdl;
+  int pdlcount = SPECPDL_INDEX ();
   int repeat = 1;
   struct gcpro gcpro1;
   int success_count = 0;