GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-29 13:48:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing missing )

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-11-24 14:13:55 +01:00
parent ae1c899d39
commit c7178062a0
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
glicid/utils.scm
View file

@ -13,6 +13,7 @@
instead-of instead-of
touch touch
)) ))
(define (latest-version v1 v2) (define (latest-version v1 v2)
(case (version-compare (package-version v1) (package-version v2)) (case (version-compare (package-version v1) (package-version v2))
((>) v1) ((>) v1)
@ -31,8 +32,7 @@
(name (string-append (package-name original-package) "-" suffix )))) (name (string-append (package-name original-package) "-" suffix ))))
(define (instead-of package-a-spec package-b) (define (instead-of package-a-spec package-b)
(package-input-rewriting/spec `( (package-input-rewriting/spec `( (,package-a-spec . ,(const package-b)))))
(,package-a-spec . ,(const package-b)))))
(define (touch filename) (define (touch filename)
(call-with-output-file file-name (const #t)) (call-with-output-file file-name (const #t)))