Mercurial > emacs
changeset 3389:91f64e9078e9
(copy-tree): Use let* to bind new before i.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Jun 1993 06:03:56 +0000 |
| parents | afd441c3e936 |
| children | ce971b0a5918 |
| files | lisp/emacs-lisp/lucid.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lucid.el Tue Jun 01 06:02:24 1993 +0000 +++ b/lisp/emacs-lisp/lucid.el Tue Jun 01 06:03:56 1993 +0000 @@ -29,8 +29,8 @@ (cons (copy-tree (car tree)) (copy-tree (cdr tree))) (if (vectorp tree) - (let ((new (copy-sequence tree)) - (i (1- (length new)))) + (let* ((new (copy-sequence tree)) + (i (1- (length new)))) (while (>= i 0) (aset new i (copy-tree (aref new i))) (setq i (1- i)))