[nongnu] elpa/hyperdrive b777ee2722 37/49: Change: (-fill-version-ranges) Rename labeled functions to -at

[ELPA Syncer]

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

    Change: (-fill-version-ranges) Rename labeled functions to -at
---
 hyperdrive-lib.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 70f4eec256..d9f8fbb72a 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -819,28 +819,28 @@ Once all requests return, call FINALLY with no arguments."
                                                         (funcall finally)))))
          ;; Flag used in the nonexistent-queue finalizer.
          finishedp)
-    (cl-labels ((fill-existent (version)
+    (cl-labels ((fill-existent-at (version)
                   (let ((prev-range-end (1- (car 
(hyperdrive-entry-version-range entry :version version)))))
                     (if (and (cl-plusp total-requests-limit)
                              (eq 'unknown (hyperdrive-entry-exists-p entry 
:version prev-range-end)))
                         ;; Recurse backward through history.
-                        (fill-entry prev-range-end)
+                        (fill-entry-at prev-range-end)
                       (setf finishedp t))))
-                (fill-nonexistent (version)
+                (fill-nonexistent-at (version)
                   (let ((nonexistent-queue
                          (make-plz-queue
                           :limit hyperdrive-queue-limit
                           :finally (lambda ()
                                      (setf outstanding-nonexistent-requests-p 
nil)
                                      (if finishedp
-                                         ;; If the fill-nonexistent loop 
stopped
+                                         ;; If the fill-nonexistent-at loop 
stopped
                                          ;; prematurely, stop filling and call 
`finally'.
                                          (funcall finally)
                                        (let ((last-requested-version (- 
version hyperdrive-queue-limit)))
                                          (cl-decf total-requests-limit 
hyperdrive-queue-limit)
                                          (pcase-exhaustive 
(hyperdrive-entry-exists-p entry :version last-requested-version)
-                                           ('t (fill-existent 
last-requested-version))
-                                           ('nil (fill-nonexistent 
last-requested-version))
+                                           ('t (fill-existent-at 
last-requested-version))
+                                           ('nil (fill-nonexistent-at 
last-requested-version))
                                            ('unknown
                                             (hyperdrive-error "Entry should 
have been filled at version: %s" last-requested-version))))))))
                         ;; Make a copy of the version ranges for use in the 
HEAD request callback.
@@ -877,7 +877,7 @@ Once all requests return, call FINALLY with no arguments."
                                     (_ (signal (car err) (cdr err)))))
                           :noquery t)
                         (setf outstanding-nonexistent-requests-p t)))))
-                (fill-entry (version)
+                (fill-entry-at (version)
                   (let ((copy-entry (hyperdrive-copy-tree entry t)))
                     (setf (hyperdrive-entry-version copy-entry) version)
                     (cl-decf total-requests-limit)
@@ -894,16 +894,16 @@ Once all requests return, call FINALLY with no arguments."
                                     ;; range-start that was already known
                                     ;; before this batch of parallel requests.
                                     (setf finishedp t)
-                                  (fill-existent version))))
+                                  (fill-existent-at version))))
                       :else (lambda (err)
                               (pcase (plz-response-status (plz-error-response 
err))
                                 ;; FIXME: If plz-error is a curl-error, this 
block will fail.
                                 (404
                                  (hyperdrive-update-nonexistent-version-range 
copy-entry)
-                                 (fill-nonexistent version))
+                                 (fill-nonexistent-at version))
                                 (_ (signal (car err) (cdr err)))))
                       :noquery t))))
-      (fill-entry (hyperdrive-entry-version entry)))))
+      (fill-entry-at (hyperdrive-entry-version entry)))))
 
 (defun hyperdrive-fill-metadata (hyperdrive)
   "Fill HYPERDRIVE's public metadata and return it.