diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/fns.c | 2 |
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 |