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")))) "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 (lambda* (#:key outputs #:allow-other-keys)
'install 'install-private-headers ;; Private headers are needed by Expect.
(lambda* (#:key outputs #:allow-other-keys) (and (zero? (system* "make"
;; Private headers are needed by Expect. "install-private-headers"))
(and (zero? (system* "make" (let ((bin (string-append (assoc-ref outputs "out")
"install-private-headers")) "/bin")))
(let ((bin (string-append (assoc-ref outputs "out") ;; Create a tclsh -> tclsh8.6 symlink.
"/bin"))) ;; Programs such as Ghostscript rely on it.
;; Create a tclsh -> tclsh8.6 symlink. (with-directory-excursion bin
;; Programs such as Ghostscript rely on it. (symlink (car (find-files "." "tclsh"))
(with-directory-excursion bin "tclsh"))
(symlink (car (find-files "." "tclsh")) #t)))))
"tclsh")))))
%standard-phases))
;; 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