TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

guix: utils: Add version-major. 

* guix/utils.scm (version-major): New procedure.
This commit is contained in:
nee 2017-10-09 23:02:05 +02:00 committed by Christopher Baines
parent 1e52fd83c2
commit 47dc9a0dae
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/utils.scm
View File

@ -82,6 +82,7 @@
version>=?
version-prefix
version-major+minor
version-major
guile-version>?
string-replace-substring
arguments-from-environment-variable
@ -497,6 +498,10 @@ For example, (version-prefix \"2.1.47.4.23\" 3) returns \"2.1.47\""
minor version numbers from version-string."
(version-prefix version-string 2))
(define (version-major version-string)
"Return the major version number as string from the version-string."
(version-prefix version-string 1))
(define (version>? a b)
"Return #t when A denotes a version strictly newer than B."
(eq? '> (version-compare a b)))