* fns.c (Fcopy_sequence): Simplify XTYPE calculation.

diff --git a/src/ChangeLog b/src/ChangeLog
index 827092e7f8addb637af3c6d3f021d44985999f9d..ec0fbc493cb6c8309230c13526a96bb0d3172e6c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-15  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * fns.c (Fcopy_sequence): Simplify XTYPE calculation.
+
 2013-06-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * lread.c (syms_of_lread):

diff --git a/src/fns.c b/src/fns.c
index 06d4e358f10e5a04434f251d877002460bf688e8..7a230e61a3c0f1e34dccab836348dc9988e6264d 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -445,7 +445,7 @@ with the original.  */)
   if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg))
     wrong_type_argument (Qsequencep, arg);
 
-  return concat (1, &arg, CONSP (arg) ? Lisp_Cons : XTYPE (arg), 0);
+  return concat (1, &arg, XTYPE (arg), 0);
 }
 
 /* This structure holds information of an argument of `concat' that is