Fix bytecode optimization typo

Problem reported by Simon Frankau (Bug#35562).
* src/bytecode.c (exec_byte_code): Fix typo when optimizing varset.

diff --git a/src/bytecode.c b/src/bytecode.c
index 40977799bfc9edf0276b91afaa5ec1c017ea93c5..6f601cf0cd57186d1a7b688a2d68ee1c18cf6083 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -562,7 +562,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
            /* Inline the most common case.  */
            if (SYMBOLP (sym)
                && !EQ (val, Qunbound)
-               && !XSYMBOL (sym)->u.s.redirect
+               && XSYMBOL (sym)->u.s.redirect == SYMBOL_PLAINVAL
                && !SYMBOL_TRAPPED_WRITE_P (sym))
              SET_SYMBOL_VAL (XSYMBOL (sym), val);
            else