procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-optimize-letX): Use car-safe and cdr-safe.

Browse source
This commit is contained in:
Richard M. Stallman 1995-04-24 04:21:21 +00:00
parent 0656272711
commit 5d265171c8
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/byte-opt.el
View file

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