* src/fns.c (Fmapconcat): Faster fast-path condition

This commit is contained in:
Mattias Engdegård 2025-02-19 19:57:16 +01:00
parent 241e8e5fcf
commit b481fbe92f

View file

@ -3450,7 +3450,7 @@ FUNCTION must be a function of one argument, and must return a value
return empty_unibyte_string;
Lisp_Object *args;
SAFE_ALLOCA_LISP (args, args_alloc);
if (EQ (function, Qidentity))
if (BASE_EQ (function, Qidentity))
{
/* Fast path when no function call is necessary. */
if (CONSP (sequence))