branch: elpa/hyperdrive
commit 53b48e337e7154813e4e0433d041ec039fdfbf84
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Tidy: (hyperdrive-fill-version-ranges) Don't let-bind finally
---
hyperdrive-lib.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 57d092ec4c..b65468adb0 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -804,12 +804,11 @@ Returns the ranges cons cell for ENTRY."
Once all requests return, call FINALLY with no arguments."
(declare (indent defun))
(let* ((outstanding-nonexistent-requests-p)
- (finally (lambda ()
- (unless outstanding-nonexistent-requests-p
- (funcall finally))))
(limit hyperdrive-fill-version-ranges-limit)
(fill-entry-queue (make-plz-queue :limit hyperdrive-queue-size
- :finally finally))
+ :finally (lambda ()
+ (unless
outstanding-nonexistent-requests-p
+ (funcall finally)))))
;; Flag used in the nonexistent-queue finalizer.
finishedp)
(cl-labels ((fill-existent (entry)
