# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1081975502 0
# Node ID 6258852d360732ac3cb1f86073701e3f96914739
# Parent  ab70a3ddd144101829e31bf3c6b679877f20aa5c
(fix_command): Use XDCR.

diff -r ab70a3ddd144 -r 6258852d3607 src/callint.c
--- a/src/callint.c	Wed Apr 14 20:43:45 2004 +0000
+++ b/src/callint.c	Wed Apr 14 20:45:02 2004 +0000
@@ -209,7 +209,7 @@
 	  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);