From af40b7689a768f8a4b931d9c655c9c8bdba9393e Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Thu, 26 Nov 2015 20:57:34 +0000 Subject: [PATCH] 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'. --- lisp/emacs-lisp/bytecomp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5