Mercurial > emacs

changeset 9308:2c594629baaa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flength, concat, mapcar1): Don't use XFASTINT as an lvalue.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 15:53:00 +0000
parents 44d6fc4b638b
children 27370f65dfa1
files src/fns.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Tue Oct 04 15:52:06 1994 +0000
+++ b/src/fns.c	Tue Oct 04 15:53:00 1994 +0000
@@ -111,12 +111,12 @@
 	  tail = Fcdr (tail);
 	}
 
-      XFASTINT (val) = i;
+      XSETFASTINT (val, i);
       return val;
     }
   else if (NILP(obj))
     {
-      XFASTINT (val) = 0;
+      XSETFASTINT (val, 0);
       return val;
     }
   else
@@ -305,7 +305,7 @@
       leni += XFASTINT (len);
     }
 
-  XFASTINT (len) = leni;
+  XSETFASTINT (len, leni);
 
   if (target_type == Lisp_Cons)
     val = Fmake_list (len, Qnil);
@@ -355,7 +355,7 @@
 	    {
 	      if (thisindex >= thisleni) break;
 	      if (STRINGP (this))
-		XFASTINT (elt) = XSTRING (this)->data[thisindex++];
+		XSETFASTINT (elt, XSTRING (this)->data[thisindex++]);
 	      else
 		elt = XVECTOR (this)->contents[thisindex++];
 	    }
@@ -1053,7 +1053,7 @@
     {
       for (i = 0; i < leni; i++)
 	{
-	  XFASTINT (dummy) = XSTRING (seq)->data[i];
+	  XSETFASTINT (dummy, XSTRING (seq)->data[i]);
 	  vals[i] = call1 (fn, dummy);
 	}
     }