1 files changed, 4 insertions, 4 deletions
diff --git a/src/callint.c b/src/callint.c
index 644f9bc55c0..8efab94673b 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -148,11 +148,11 @@ quotify_args (exp)
     Lisp_Object exp;
 {
  register Lisp_Object tail;
-  register struct Lisp_Cons *ptr;
+  Lisp_Object next;
-  for (tail = exp; CONSP (tail); tail = ptr->cdr)
+  for (tail = exp; CONSP (tail); tail = next)
    {
-      ptr = XCONS (tail);
+      next = XCDR (tail);
-      ptr->car = quotify_arg (ptr->car);
+      XCAR (tail) = quotify_arg (XCAR (tail));
    }
  return exp;
 }

diff --git a/src/callint.c b/src/callint.c index 644f9bc55c0..8efab94673b 100644 --- a/src/callint.c +++ b/src/callint.c
@@ -148,11 +148,11 @@ quotify_args (exp)
148	Lisp_Object exp;	148	Lisp_Object exp;
149	{	149	{
150	register Lisp_Object tail;	150	register Lisp_Object tail;
151	register struct Lisp_Cons *ptr;	151	Lisp_Object next;
152	for (tail = exp; CONSP (tail); tail = ptr->cdr)	152	for (tail = exp; CONSP (tail); tail = next)
153	{	153	{
154	ptr = XCONS (tail);	154	next = XCDR (tail);
155	ptr->car = quotify_arg (ptr->car);	155	XCAR (tail) = quotify_arg (XCAR (tail));
156	}	156	}
157	return exp;	157	return exp;
158	}	158	}