Mercurial > emacs
changeset 10006:402c87cbc4fa
(Fvconcat, concat): Use Lisp_Vectorlike.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 18 Nov 1994 04:49:51 +0000 |
| parents | 9424b278cd6a |
| children | 10fc4417831d |
| files | src/fns.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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);