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

gnu: guile-bash: Modernise.

Browse source 
* gnu/packages/guile-xyz.scm (guile-bash)[inputs]: Use MODIFY-INPUTS.
[arguments]: Use SUBSTITUTE-KEYWORD-ARGUMENTS.
This commit is contained in:
Tobias Geerinckx-Rice 2022-07-17 02:00:00 +02:00
parent 19d576c645
commit ae74b3020c
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/guile-xyz.scm
View file

@ -476,19 +476,20 @@ (define-public guile-bash
(inherit guile2.0-bash)
(name "guile-bash")
(inputs
`(("guile" ,guile-3.0-latest)
,@(assoc-remove! (package-inputs guile2.0-bash) "guile")))
(modify-inputs (package-inputs guile2.0-bash)
(replace "guile" guile-3.0-latest)))
(arguments
`(#:tests? #f
#:phases (modify-phases %standard-phases
(add-after 'install 'install-guile
(lambda* (#:key inputs outputs #:allow-other-keys)
(copy-recursively
(string-append (assoc-ref outputs "out")
(assoc-ref inputs "guile") "/share")
(string-append (assoc-ref outputs "out") "/share"))
#t)))
,@(package-arguments guile2.0-bash)))))
(substitute-keyword-arguments (package-arguments guile2.0-bash)
;; XXX The tests succeed with Guile 2.0 but fail with 3.0.
((#:tests? _ #f) #f)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'install 'install-guile
(lambda* (#:key inputs outputs #:allow-other-keys)
(copy-recursively
(string-append (assoc-ref outputs "out")
(assoc-ref inputs "guile") "/share")
(string-append (assoc-ref outputs "out") "/share"))))))))))
(define-public guile-8sync
(let ((commit "183b4f02e68279d4984e79b79e06bfcf1861fcbf") (revision "0"))