[nongnu] elpa/hyperdrive 25f540a7df 20/21: Tidy: (h//context-entry) Use a labeled function instead of thunk

[ELPA Syncer]

branch: elpa/hyperdrive
commit 25f540a7dff1f3400fe002900b92fd11d1aa5d6f
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy: (h//context-entry) Use a labeled function instead of thunk
---
 hyperdrive-lib.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index a3cadf9289..d0a38cb19a 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -32,7 +32,6 @@
 (require 'seq)
 (require 'url-util)
 (require 'gv)
-(require 'thunk)
 
 (require 'compat)
 (require 'persist)
@@ -1157,12 +1156,13 @@ default to `hyperdrive-formats', which see."
   "Return the current entry in the current context.
 LATEST-VERSION is passed to `hyperdrive-read-entry'.  With
 FORCE-PROMPT, prompt for entry."
-  (thunk-let ((read-entry (h/read-entry
-                           (h//context-hyperdrive :force-prompt force-prompt)
-                           :read-version t :latest-version latest-version)))
-    (cond (force-prompt read-entry)
+  (cl-labels ((read-entry ()
+                (h/read-entry
+                 (h//context-hyperdrive :force-prompt force-prompt)
+                 :read-version t :latest-version latest-version)))
+    (cond (force-prompt (read-entry))
           ((derived-mode-p 'h/dir-mode) (h/dir--entry-at-point))
-          (t (or h/current-entry read-entry)))))
+          (t (or h/current-entry (read-entry))))))
 
 (cl-defun h//context-hyperdrive (&key predicate force-prompt)
   "Return hyperdrive for current entry when it matches PREDICATE.