mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: tcsh: Use modify-phases.
* gnu/packages/shells.scm (tcsh)[arguments]: Use modify-phases.
This commit is contained in:
parent
816417f5a4
commit
c71011f80f
1 changed files with 25 additions and 25 deletions
|
@ -240,8 +240,8 @@ (define-public tcsh
|
|||
`(("ncurses" ,ncurses)))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(alist-cons-before
|
||||
'check 'patch-test-scripts
|
||||
(modify-phases %standard-phases
|
||||
(add-before 'check 'patch-test-scripts
|
||||
(lambda _
|
||||
;; Take care of pwd
|
||||
(substitute* '("tests/commands.at" "tests/variables.at")
|
||||
|
@ -257,15 +257,15 @@ (define-public tcsh
|
|||
;; This file is ISO-8859-1 encoded.
|
||||
(with-fluids ((%default-port-encoding #f))
|
||||
(substitute* "tests/testsuite"
|
||||
(("/bin/sh") (which "sh")))))
|
||||
(alist-cons-after
|
||||
'install 'post-install
|
||||
(("/bin/sh") (which "sh"))))
|
||||
#t))
|
||||
(add-after 'install 'post-install
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(bin (string-append out "/bin")))
|
||||
(with-directory-excursion bin
|
||||
(symlink "tcsh" "csh"))))
|
||||
%standard-phases))))
|
||||
(symlink "tcsh" "csh"))
|
||||
#t))))))
|
||||
(home-page "http://www.tcsh.org/")
|
||||
(synopsis "Unix shell based on csh")
|
||||
(description
|
||||
|
|
Loading…
Reference in a new issue