[elpa] externals/compat 4abf2bccb5 3/5: compat-25: Small fix to the last commit

[ELPA Syncer]

branch: externals/compat
commit 4abf2bccb51c60616cc62e3d1ccf91f4e7d93854
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-25: Small fix to the last commit
---
 compat-25.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compat-25.el b/compat-25.el
index ef0c78b398..eec0c56290 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -49,9 +49,8 @@ usage: (bool-vector &rest OBJECTS)"
    ((listp seq)
     (sort seq predicate))
    ((vectorp seq)
-    (let ((list (sort (append seq nil) predicate))
-          (p list)
-          (i 0))
+    (let* ((list (sort (append seq nil) predicate))
+           (p list) (i 0))
       (while p
         (aset seq i (car p))
         (setq i (1+ i) p (cdr p)))