(Fvconcat, concat): Use Lisp_Vectorlike.

diff --git a/src/fns.c b/src/fns.c
index 7df032086a8209966246e988fb47c732c952f69b..0ef7ed3c9e758857ff37c34504693bff89410d6b 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -242,7 +242,7 @@ Each argument may be a list, vector or string.")
      int nargs;
      Lisp_Object *args;
 {
-  return concat (nargs, args, Lisp_Vector, 0);
+  return concat (nargs, args, Lisp_Vectorlike, 0);
 }
 
 DEFUN ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0,
@@ -308,7 +308,7 @@ concat (nargs, args, target_type, last_special)
 
   if (target_type == Lisp_Cons)
     val = Fmake_list (len, Qnil);
-  else if (target_type == Lisp_Vector)
+  else if (target_type == Lisp_Vectorlike)
     val = Fmake_vector (len, Qnil);
   else
     val = Fmake_string (len, len);