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

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 827092e7f8a..ec0fbc493cb 100644
--- 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 06d4e358f10..7a230e61a3c 100644
--- 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