masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 10:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* src/fns.c (mapcar1): Less lax type checking

Browse source 
Previously, mapcar etc would crash or return nonsense when passed a
record.  Found by Pip Cet.
This commit is contained in:
Mattias Engdegård 2025-06-15 10:08:33 +02:00
parent 336253ddd3
commit 08a7477d22
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/fns.c
View file

@ -3409,9 +3409,8 @@ mapcar1 (EMACS_INT leni, Lisp_Object *vals, Lisp_Object fn, Lisp_Object seq)
vals[i_before] = dummy;
}
}
else
else if (BOOL_VECTOR_P (seq))
{
eassert (BOOL_VECTOR_P (seq));
for (EMACS_INT i = 0; i < leni; i++)
{
Lisp_Object dummy = calln (fn, bool_vector_ref (seq, i));
@ -3419,6 +3418,8 @@ mapcar1 (EMACS_INT leni, Lisp_Object *vals, Lisp_Object fn, Lisp_Object seq)
vals[i] = dummy;
}
}
else
wrong_type_argument (Qsequencep, seq);
return leni;
}