mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source 
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'.
This commit is contained in:
Alan Mackenzie 2015-11-26 20:57:34 +00:00
parent 3f042f6588
commit af40b7689a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/bytecomp.el
View File

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