diff options
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index 95e8badbaa5..bce922859d1 100644 --- a/src/fns.c +++ b/src/fns.c @@ -510,7 +510,7 @@ concat (size_t nargs, Lisp_Object *args, Lisp_Object ch; EMACS_INT this_len_byte; - if (VECTORP (this)) + if (VECTORP (this) || COMPILEDP (this)) for (i = 0; i < len; i++) { ch = AREF (this, i); @@ -2297,7 +2297,7 @@ mapcar1 (EMACS_INT leni, Lisp_Object *vals, Lisp_Object fn, Lisp_Object seq) 1) lists are not relocated and 2) the list is marked via `seq' so will not be freed */ - if (VECTORP (seq)) + if (VECTORP (seq) || COMPILEDP (seq)) { for (i = 0; i < leni; i++) { |