Revert and cleanup Lisp_Cons, Lisp_Misc and Lisp_Symbol things.

[bpt/emacs.git] / src / bytecode.c

diff --git a/src/bytecode.c b/src/bytecode.c
index 49369de..5ac8b4f 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -818,7 +818,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
                && !EQ (val, Qunbound)
                && !XSYMBOL (sym)->redirect
                && !SYMBOL_CONSTANT_P (sym))
-             SVAR (XSYMBOL (sym), val.value) = val;
+             SET_SYMBOL_VAL (XSYMBOL (sym), val);
            else
              {
                BEFORE_POTENTIAL_GC ();