diff options
author | Karl Heuer <[email protected]> | 1994-11-18 04:49:51 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-11-18 04:49:51 +0000 |
commit | 3e7383ebfa1b3b068b52ccd1b73e6872317d1c40 (patch) | |
tree | 23666eb75aa0e358b63e3a1f529a30fefba770e5 /src/fns.c | |
parent | 602b4a3e927e0825a2b6da4b7b6d828cbbfb8c3a (diff) |
(Fvconcat, concat): Use Lisp_Vectorlike.
Diffstat (limited to 'src/fns.c')
-rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |