Mercurial > emacs
changeset 11509:853f52a85d11
(byte-optimize-letX): Use car-safe and cdr-safe.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 Apr 1995 04:21:21 +0000 |
| parents | f04aa4cd5182 |
| children | e5d3814e783a |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Fri Apr 21 00:45:35 1995 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Mon Apr 24 04:21:21 1995 +0000 @@ -940,7 +940,8 @@ form) ;; The body is nil ((eq (car form) 'let) - (append '(progn) (mapcar 'car (mapcar 'cdr (nth 1 form))) '(nil))) + (append '(progn) (mapcar 'car-safe (mapcar 'cdr-safe (nth 1 form))) + '(nil))) (t (let ((binds (reverse (nth 1 form)))) (list 'let* (reverse (cdr binds)) (nth 1 (car binds)) nil)))))