devops: Fix version-comparator.

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index cd46a03ec904f8624e08003a366c2df832942888..cceddbd03067243f47c4b2e70dacd5da15379d0d 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -707,20 +707,21 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 (define (version-comparator < >)
   (named-lambda (version-compare v1 v2)
-    (cond ((eq? #f v1)
-          #t)
-         ((eq? #f v2)
-          #f)
-         ((null? v2)
-          #f)
-         ((null? v1) ;; and (pair? v2)
-          #t)
-         ((< (car v1) (car v2))
-          #t)
-         ((> (car v1) (car v2))
-          #f)
-         (else
-          (version<? (cdr v1) (cdr v2))))))
+    (let loop ((v1 v1) (v2 v2))
+      (cond ((eq? #f v1)
+            #t)
+           ((eq? #f v2)
+            #f)
+           ((null? v2)
+            #f)
+           ((null? v1) ;; and (pair? v2)
+            #t)
+           ((< (car v1) (car v2))
+            #t)
+           ((> (car v1) (car v2))
+            #f)
+           (else
+            (loop (cdr v1) (cdr v2)))))))
 
 (define (->version string)
   (and string