Use INVOKE in (gnu packages shells).

* gnu/packages/shells.scm (mksh)[arguments]: Use INVOKE...
(scsh)[arguments]: ...and also return #t from all phases.
This commit is contained in:
Tobias Geerinckx-Rice 2018-09-20 04:13:51 +02:00
parent 9923d5a40f
commit 2385ecb224
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -417,7 +417,7 @@ (define-public scsh
#t))
(add-after 'unpack 'autoreconf
(lambda _
(zero? (system* "autoreconf")))))))
(invoke "autoreconf"))))))
(inputs
`(("scheme48" ,scheme48)
("scheme48-rx" ,scheme48-rx)))
@ -623,7 +623,7 @@ (define-public mksh
(replace 'build
(lambda _
(setenv "CC" "gcc")
(zero? (system* (which "sh") "Build.sh"))))
(invoke (which "sh") "Build.sh")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -632,7 +632,8 @@ (define-public mksh
(install-file "mksh" bin)
(with-directory-excursion bin
(symlink "mksh" "ksh"))
(install-file "mksh.1" man)))))))
(install-file "mksh.1" man)
#t))))))
(home-page "https://www.mirbsd.org/mksh.htm")
(synopsis "Korn Shell from MirBSD")
(description "mksh is an actively developed free implementation of the