xemacs-beta: src/bytecode.c comparison

Merge with trunk.

comparison

equal deleted inserted replaced

-:5cddeeeb25bb
+:46491edfd94a
 obj = wrong_type_argument (Qnumber_char_or_marker_p, obj);
 goto retry;
 }
 static Lisp_Object
-bytecode_nreverse (Lisp_Object list)
+bytecode_nreverse (Lisp_Object sequence)
 {
-REGISTER Lisp_Object prev = Qnil;
+if (LISTP (sequence))
-REGISTER Lisp_Object tail = list;
-while (!NILP (tail))
 {
-REGISTER Lisp_Object next;
+REGISTER Lisp_Object prev = Qnil;
-CHECK_CONS (tail);
+REGISTER Lisp_Object tail = sequence;
-next = XCDR (tail);
-XCDR (tail) = prev;
+while (!NILP (tail))
-prev = tail;
+	{
-tail = next;
+	  REGISTER Lisp_Object next;
+	  CHECK_CONS (tail);
+	  next = XCDR (tail);
+	  XCDR (tail) = prev;
+	  prev = tail;
+	  tail = next;
+	}
+return prev;
 }
-return prev;
+else
+{
+return Fnreverse (sequence);
+}
 }
 /* We have our own two-argument versions of various arithmetic ops.
 Only two-argument arithmetic operations have their own byte codes. */

Mercurial > hg > xemacs-beta