(fix_command): Use XDCR.

5dc05618 · Stefan Monnier · a080ff23 · 5dc05618
Commit 5dc05618 authored Apr 14, 2004 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/callint.c src/callint.c +1 -1

No files found.
--- a/src/callint.c
+++ b/src/callint.c
@@ -209,7 +209,7 @@ fix_command (input, values)
 	  Lisp_Object intail, valtail;
 	  for (intail = Fcdr (input), valtail = values;
 	       CONSP (valtail);
-	       intail = Fcdr (intail), valtail = Fcdr (valtail))
+	       intail = Fcdr (intail), valtail = XCDR (valtail))
 	    {
 	      Lisp_Object elt;
 	      elt = Fcar (intail);