# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738914636 0
# Node ID 91f64e9078e9dba021b127dd30139dcb104f7ef9
# Parent  afd441c3e936b5defb72a5b45b376cad6e23b687
(copy-tree): Use let* to bind new before i.

diff -r afd441c3e936 -r 91f64e9078e9 lisp/emacs-lisp/lucid.el
--- 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)))