ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: tcsh: Use G-expression.

Browse source 
* gnu/packages/shells.scm (tcsh)[arguments]: Rewrite as gexp.
This commit is contained in:
Marius Bakke 2022-06-30 16:58:20 +02:00
parent bad74c24f0
commit 1a04f8c677
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 14 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/shells.scm
View file

@ -413,16 +413,16 @@ (define-public tcsh
(inputs
(list ncurses))
(arguments
`(#:phases
(modify-phases %standard-phases
,@(if (%current-target-system)
'((add-before 'configure 'set-cross-cc
(lambda _
(substitute* "configure"
(("CC_FOR_GETHOST=\"cc\"")
"CC_FOR_GETHOST=\"gcc\""))
#t)))
'())
(list
#:phases
#~(modify-phases %standard-phases
#$@(if (%current-target-system)
#~((add-before 'configure 'set-cross-cc
(lambda _
(substitute* "configure"
(("CC_FOR_GETHOST=\"cc\"")
"CC_FOR_GETHOST=\"gcc\"")))))
#~())
(add-before 'check 'patch-test-scripts
(lambda _
;; Take care of pwd
@ -449,15 +449,11 @@ (define-public tcsh
;; This file is ISO-8859-1 encoded.
(with-fluids ((%default-port-encoding #f))
(substitute* "tests/testsuite"
(("/bin/sh") (which "sh"))))
#t))
(("/bin/sh") (which "sh"))))))
(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"))
#t))))))
(lambda _
(with-directory-excursion (string-append #$output "/bin")
(symlink "tcsh" "csh")))))))
(home-page "https://www.tcsh.org/")
(synopsis "Unix shell based on csh")
(description