diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 1d394511c96..6e89aa20435 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -940,7 +940,8 @@ | |||
| 940 | form) | 940 | form) |
| 941 | ;; The body is nil | 941 | ;; The body is nil |
| 942 | ((eq (car form) 'let) | 942 | ((eq (car form) 'let) |
| 943 | (append '(progn) (mapcar 'car (mapcar 'cdr (nth 1 form))) '(nil))) | 943 | (append '(progn) (mapcar 'car-safe (mapcar 'cdr-safe (nth 1 form))) |
| 944 | '(nil))) | ||
| 944 | (t | 945 | (t |
| 945 | (let ((binds (reverse (nth 1 form)))) | 946 | (let ((binds (reverse (nth 1 form)))) |
| 946 | (list 'let* (reverse (cdr binds)) (nth 1 (car binds)) nil))))) | 947 | (list 'let* (reverse (cdr binds)) (nth 1 (car binds)) nil))))) |