[nongnu] elpa/hyperdrive 395d1dd5e0 25/49: Fix: (-fill-version-ranges) Stop filling when loop returns early

[ELPA Syncer]

branch: elpa/hyperdrive
commit 395d1dd5e04a1be7a4bb56d2075434934f92c74c
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (-fill-version-ranges) Stop filling when loop returns early
---
 hyperdrive-lib.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index e687c01176..369207c886 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -828,17 +828,16 @@ Once all requests return, call FINALLY with no arguments."
                                             :limit hyperdrive-queue-size
                                             :finally (lambda ()
                                                        (setf 
outstanding-nonexistent-requests-p nil)
-                                                       (cl-decf limit 
hyperdrive-queue-size)
-                                                       (let 
((last-requested-entry (hyperdrive-copy-tree entry t)))
-                                                         (cl-incf 
(hyperdrive-entry-version last-requested-entry))
-                                                         (if 
(hyperdrive-entry-exists-p last-requested-entry)
-                                                             (fill-existent 
entry)
-                                                           (fill-nonexistent 
entry))
-                                                         (when finishedp
+                                                       (if finishedp
                                                            ;; If the 
fill-nonexistent loop stopped
-                                                           ;; prematurely, the 
fill-entry-queue
-                                                           ;; finalizer won't 
run: call `finally' here.
-                                                           (funcall 
finally)))))))
+                                                           ;; prematurely, 
stop filling and call `finally'.
+                                                           (funcall finally)
+                                                         (cl-decf limit 
hyperdrive-queue-size)
+                                                         (let 
((last-requested-entry (hyperdrive-copy-tree entry t)))
+                                                           (cl-incf 
(hyperdrive-entry-version last-requested-entry))
+                                                           (if 
(hyperdrive-entry-exists-p last-requested-entry)
+                                                               (fill-existent 
entry)
+                                                             (fill-nonexistent 
entry))))))))
                     ;; For nonexistent entries, send requests in parallel.
                     (cl-dotimes (i hyperdrive-queue-size)
                       ;; Send the maximum number of simultaneous requests.