(copy-tree): Use let* to bind new before i.

7dce3709 · Richard M. Stallman · 3aa7cce7 · 7dce3709
Commit 7dce3709 authored Jun 01, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/emacs-lisp/lucid.el lisp/emacs-lisp/lucid.el +2 -2

No files found.
--- 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)))