# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941335319 0
# Node ID 144cf26f35e1cc3faf660cd2e96174be8b7f8066
# Parent  4ebced8747b7f872334cf0027360decbd6e5137b
(Flength): Unroll loop over lists.

diff -r 4ebced8747b7 -r 144cf26f35e1 src/fns.c
--- a/src/fns.c	Sun Oct 31 02:01:25 1999 +0000
+++ b/src/fns.c	Sun Oct 31 02:01:59 1999 +0000
@@ -148,11 +148,18 @@
     XSETFASTINT (val, XVECTOR (sequence)->size & PSEUDOVECTOR_SIZE_MASK);
   else if (CONSP (sequence))
     {
-      for (i = 0; CONSP (sequence); ++i)
+      i = 0;
+      while (CONSP (sequence))
 	{
-	  if ((i & 0xff) == 0)
-	    QUIT;
 	  sequence = XCDR (sequence);
+	  ++i;
+
+	  if (!CONSP (sequence))
+	    break;
+
+	  sequence = XCDR (sequence);
+	  ++i;
+	  QUIT;
 	}
 
       if (!NILP (sequence))