diff options
| author | Richard M. Stallman | 1993-06-01 06:03:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-01 06:03:56 +0000 |
| commit | 7dce3709b4aff9863bf805b9e483fb7153d9f01c (patch) | |
| tree | d89fba9dd57bf5c4fefb014ebd14691f7654b39b | |
| parent | 3aa7cce7e4f4b711be1a28debae5db1be1ab4817 (diff) | |
| download | emacs-7dce3709b4aff9863bf805b9e483fb7153d9f01c.tar.gz emacs-7dce3709b4aff9863bf805b9e483fb7153d9f01c.zip | |
(copy-tree): Use let* to bind new before i.
| -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 @@ | |||
| 29 | (cons (copy-tree (car tree)) | 29 | (cons (copy-tree (car tree)) |
| 30 | (copy-tree (cdr tree))) | 30 | (copy-tree (cdr tree))) |
| 31 | (if (vectorp tree) | 31 | (if (vectorp tree) |
| 32 | (let ((new (copy-sequence tree)) | 32 | (let* ((new (copy-sequence tree)) |
| 33 | (i (1- (length new)))) | 33 | (i (1- (length new)))) |
| 34 | (while (>= i 0) | 34 | (while (>= i 0) |
| 35 | (aset new i (copy-tree (aref new i))) | 35 | (aset new i (copy-tree (aref new i))) |
| 36 | (setq i (1- i))) | 36 | (setq i (1- i))) |