diff src/callint.c @ 54891:6258852d3607

(fix_command): Use XDCR.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 14 Apr 2004 20:45:02 +0000
parents 77a99ef5c0ae
children 7b6b4d9ae726
line wrap: on
line diff
--- 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);