[Emacs-diffs] test-concurrency 137898d 4/8: Fix a typo in bytecode.c.

[Eli Zaretskii]

branch: test-concurrency
commit 137898d89359c63ec05d7bb5eedc2d2f59102a11
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Fix a typo in bytecode.c.
---
 src/bytecode.c |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/bytecode.c b/src/bytecode.c
index 7d5f85d..6439268 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -656,7 +656,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
            if (SYMBOLP (sym)
                && !EQ (val, Qunbound)
                && !XSYMBOL (sym)->redirect
-                && !SYMBOL_TRAPPED_WRITE_P (sym))
+               && !SYMBOL_TRAPPED_WRITE_P (sym))
              SET_SYMBOL_VAL (XSYMBOL (sym), val);
            else
               set_internal (sym, val, Qnil, SET_INTERNAL_SET);
@@ -754,7 +754,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
 
        CASE (Bgoto):
          BYTE_CODE_QUIT;
-         op = FETCH2;  /* pc = FETCH2 loses since FETCH2 contains pc++ */
+         op = FETCH2;    /* pc = FETCH2 loses since FETCH2 contains pc++ */
          CHECK_RANGE (op);
          stack.pc = stack.byte_string_start + op;
          NEXT;
@@ -778,6 +778,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
              CHECK_RANGE (op);
              stack.pc = stack.byte_string_start + op;
            }
+         else DISCARD (1);
          NEXT;
 
        CASE (Bgotoifnonnilelsepop):