nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: tcl: Use 'modify-phases' syntax. 

* gnu/packages/tcl.scm (tcl)[arguments]: Use 'modify-phases'.
This commit is contained in:
Marius Bakke 2017-12-13 07:30:13 +01:00
parent f7c03e452b
commit 1004a92c72
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gnu/packages/tcl.scm
View File

@ -48,24 +48,22 @@
"19bb09l55alz4jb38961ikd5116q80s51bjvzqy44ckkwf28ysvw"))))
(build-system gnu-build-system)
(arguments
'(#:phases (alist-cons-before
'configure 'pre-configure
(lambda _
(chdir "unix"))
(alist-cons-after
'install 'install-private-headers
(lambda* (#:key outputs #:allow-other-keys)
;; Private headers are needed by Expect.
(and (zero? (system* "make"
"install-private-headers"))
(let ((bin (string-append (assoc-ref outputs "out")
"/bin")))
;; Create a tclsh -> tclsh8.6 symlink.
;; Programs such as Ghostscript rely on it.
(with-directory-excursion bin
(symlink (car (find-files "." "tclsh"))
"tclsh")))))
%standard-phases))
'(#:phases (modify-phases %standard-phases
(add-before 'configure 'pre-configure
(lambda _ (chdir "unix") #t))
(add-after 'install 'install-private-headers
(lambda* (#:key outputs #:allow-other-keys)
;; Private headers are needed by Expect.
(and (zero? (system* "make"
"install-private-headers"))
(let ((bin (string-append (assoc-ref outputs "out")
"/bin")))
;; Create a tclsh -> tclsh8.6 symlink.
;; Programs such as Ghostscript rely on it.
(with-directory-excursion bin
(symlink (car (find-files "." "tclsh"))
"tclsh"))
#t)))))
;; By default, man pages are put in PREFIX/man, but we want them in
;; PREFIX/share/man. The 'validate-documentation-location' phase is