more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine

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;
-  for (tail = exp; CONSP (tail); tail = ptr->cdr)
+  Lisp_Object next;
+  for (tail = exp; CONSP (tail); tail = next)
     {
-      ptr = XCONS (tail);
-      ptr->car = quotify_arg (ptr->car);
+      next = XCDR (tail);
+      XCAR (tail) = quotify_arg (XCAR (tail));
     }
   return exp;
 }