diff --git a/glicid/utils.scm b/glicid/utils.scm index ae1b244..d7f4ee0 100644 --- a/glicid/utils.scm +++ b/glicid/utils.scm @@ -10,7 +10,16 @@ #:export (transform-package) #: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 (package-input-rewriting `(