diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-06-01 06:03:56 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-06-01 06:03:56 +0000 |
commit | fb578c945aa349cd4c141c68449f7dbad1f9a369 (patch) | |
tree | ff41c57133c659dfb313f1f1657a900cc42874a8 /lisp/emacs-lisp/lucid.el | |
parent | acef641bf45b8818e2fd7f4ee18adb312cd048d5 (diff) | |
download | emacs-fb578c945aa349cd4c141c68449f7dbad1f9a369.tar.gz |
(copy-tree): Use let* to bind new before i.
Diffstat (limited to 'lisp/emacs-lisp/lucid.el')
-rw-r--r-- | lisp/emacs-lisp/lucid.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 7a8ff4789ba..dc45ef546f7 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -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))) |