changeset 54891:6258852d3607

(fix_command): Use XDCR.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 14 Apr 2004 20:45:02 +0000
parents ab70a3ddd144
children 8745e8f3713a
files src/callint.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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);