From 3e7383ebfa1b3b068b52ccd1b73e6872317d1c40 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 18 Nov 1994 04:49:51 +0000 Subject: (Fvconcat, concat): Use Lisp_Vectorlike. --- src/fns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/fns.c') diff --git a/src/fns.c b/src/fns.c index 7df032086a..0ef7ed3c9e 100644 --- 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); -- cgit v1.2.3