From: Alan Mackenzie <acm@muc.de>
Date: Thu, 26 Nov 2015 20:57:34 +0000 (+0000)
Subject: Byte Compiler: generate code to adjust stack count after call to `signal'.
X-Git-Tag: emacs-25.0.90~638
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af40b7689a768f8a4b931d9c655c9c8bdba9393e;p=emacs.git

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 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)))