Commit 7dce3709 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 3aa7cce7
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment