bug#55854: [PATCH 1/2] import: Check that GNOME minor version is not a semver prerelease.

[Liliana Marie Prikler]

* guix/import/gnome.scm (latest-gnome-release)[even-minor-version]: Rename
to...
[stable-minor-version?]: ... this.  Also check that minor < 90.
---
 guix/import/gnome.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/import/gnome.scm b/guix/import/gnome.scm
index 43966c1028..1a0786ab8d 100644
--- a/guix/import/gnome.scm
+++ b/guix/import/gnome.scm
@@ -60,10 +60,10 @@ (define (latest-gnome-release package)
   (define %not-dot
     (char-set-complement (char-set #\.)))
 
-  (define (even-minor-version? version)
+  (define (stable-minor-version? version)
     (match (string-tokenize version %not-dot)
       (((= string->number major) (= string->number minor) . rest)
-       (and minor (even? minor)))
+       (and minor (even? minor) (< minor 90)))
       (((= string->number major) . _)
        ;; It should at last start with a digit.
        major)))
@@ -94,7 +94,7 @@ (define upstream-name
          (let* ((releases (assoc-ref releases upstream-name))
                 (latest   (fold (match-lambda*
                                   (((key . value) result)
-                                   (cond ((even-minor-version? key)
+                                   (cond ((stable-minor-version? key)
                                           (match result
                                             (#f
                                              (cons key value))
-- 
2.36.1