From 210272cebb7051a9e06b80cd10f17e6bd66e4a2e Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 15 Jun 2013 00:41:42 -0700 Subject: [PATCH] * fns.c (Fcopy_sequence): Simplify XTYPE calculation. --- src/ChangeLog | 4 ++++ src/fns.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * fns.c (Fcopy_sequence): Simplify XTYPE calculation. + 2013-06-13 Stefan Monnier * 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 -- 2.39.2