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'.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index ffe73defcbb4683ddefb2ad3570be8487629cd7d..8fd2594fec80e420b609216f4ef21668750b4469 100644 (file)
--- 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)))