diff options
| author | Alan Mackenzie <acm@muc.de> | 2015-11-26 20:57:34 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2015-11-26 20:57:34 +0000 |
| commit | af40b7689a768f8a4b931d9c655c9c8bdba9393e (patch) | |
| tree | a70aa09d607dc1858b40c1526681426702c4b809 /lisp/emacs-lisp/bytecomp.el | |
| parent | 3f042f65887672da52c6fe32b6d3254aff4be9c7 (diff) | |
| download | emacs-af40b7689a768f8a4b931d9c655c9c8bdba9393e.tar.gz emacs-af40b7689a768f8a4b931d9c655c9c8bdba9393e.tar.bz2 emacs-af40b7689a768f8a4b931d9c655c9c8bdba9393e.zip | |
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'.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
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))) |