new-version of latest-version

This commit is contained in:
Yann Dupont 2022-02-28 15:12:24 +01:00
parent aa7687e615
commit 3222b1469d

View file

@ -10,7 +10,16 @@
#:export (transform-package) #:export (transform-package)
#:export (instead-of) #:export (instead-of)
) )
(define (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2)) ;(define (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2))
(define (latest-version v1 v2)
(case (version-compare (package-version v1) (package-version v2))
((>) (v1))
((=) (v1))
((<) (v2))
)
)
(define gcc11-instead-of-gcc (define gcc11-instead-of-gcc
(package-input-rewriting `( (package-input-rewriting `(