# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 785134191 0
# Node ID 402c87cbc4fac8817c11e82b0a8ea75ceb2a2999
# Parent  9424b278cd6a37991b9651b90d664187e435b82d
(Fvconcat, concat): Use Lisp_Vectorlike.

diff -r 9424b278cd6a -r 402c87cbc4fa src/fns.c
--- a/src/fns.c	Fri Nov 18 03:37:48 1994 +0000
+++ b/src/fns.c	Fri Nov 18 04:49:51 1994 +0000
@@ -242,7 +242,7 @@
      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 @@
 
   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);