Byte Compiler: generate code to adjust stack count after call to `signal'.

Corrects change from earlier today.

* lisp/emacs-lisp/bytecomp.el (byte-compile-setq): supply the current value of
`byte-compile--for-effect' as argument to `byte-compile-form'.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index ffe73defcbb..8fd2594fec8 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3749,7 +3749,8 @@ discarding."
            (format "missing value for `%S' at end of setq" (car (last args)))
            nil :error)
           (byte-compile-form
-           `(signal 'wrong-number-of-arguments '(setq ,len))))
+           `(signal 'wrong-number-of-arguments '(setq ,len))
+           byte-compile--for-effect))
       (if args
           (while args
             (byte-compile-form (car (cdr args)))