gnu: tcsh: Use modify-phases.

* gnu/packages/shells.scm (tcsh)[arguments]: Use modify-phases.
This commit is contained in:
Leo Famulari 2017-02-24 03:05:13 -05:00
parent 816417f5a4
commit c71011f80f
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08

View file

@ -240,8 +240,8 @@ (define-public tcsh
`(("ncurses" ,ncurses))) `(("ncurses" ,ncurses)))
(arguments (arguments
`(#:phases `(#:phases
(alist-cons-before (modify-phases %standard-phases
'check 'patch-test-scripts (add-before 'check 'patch-test-scripts
(lambda _ (lambda _
;; Take care of pwd ;; Take care of pwd
(substitute* '("tests/commands.at" "tests/variables.at") (substitute* '("tests/commands.at" "tests/variables.at")
@ -257,15 +257,15 @@ (define-public tcsh
;; This file is ISO-8859-1 encoded. ;; This file is ISO-8859-1 encoded.
(with-fluids ((%default-port-encoding #f)) (with-fluids ((%default-port-encoding #f))
(substitute* "tests/testsuite" (substitute* "tests/testsuite"
(("/bin/sh") (which "sh"))))) (("/bin/sh") (which "sh"))))
(alist-cons-after #t))
'install 'post-install (add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref %outputs "out")) (let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(with-directory-excursion bin (with-directory-excursion bin
(symlink "tcsh" "csh")))) (symlink "tcsh" "csh"))
%standard-phases)))) #t))))))
(home-page "http://www.tcsh.org/") (home-page "http://www.tcsh.org/")
(synopsis "Unix shell based on csh") (synopsis "Unix shell based on csh")
(description (description