[nongnu] elpa/hyperdrive d48e430423 13/19: Fix: (he/next) Return 'unknown when version range data is missing

[ELPA Syncer]

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

    Fix: (he/next) Return 'unknown when version range data is missing
---
 hyperdrive-lib.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index bb02c4dd91..e9e5f43879 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -474,9 +474,9 @@ When VERSION is nil, return latest version of ENTRY."
 (cl-defun he/next (entry)
   "Return unfilled ENTRY at its hyperdrive's next version.
 
-If next version is known nonexistent, return nil.
-If next version's existence is unknown, return \\+`unknown'.
 If ENTRY's version is nil, return value is `eq' to ENTRY.
+Else, if next version is known nonexistent, return nil.
+Else, if current or next version's existence is unknown, return \\+`unknown'.
 
 Sends a request to the gateway for hyperdrive's latest version."
   (unless (he/version entry)
@@ -504,7 +504,9 @@ Sends a request to the gateway for hyperdrive's latest 
version."
     (pcase-let* ((`(,_range-start . ,(map :range-end))
                   (he/version-range entry))
                  (next-range-start (1+ (or range-end
-                                           (h/error "Missing version range 
data"))))
+                                           ;; Version range data is missing for
+                                           ;; ENTRY: return `unknown'.
+                                           (cl-return-from he/next 'unknown))))
                  ((map (:existsp next-range-existsp)
                        (:range-end next-range-end))
                   ;; TODO: If cl struct copiers are extended like this: