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

14
gnu/packages/tcl.scm
View File

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