[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/07: gnu: tcl: Use 'modify-phases' syntax.
From: |
Marius Bakke |
Subject: |
06/07: gnu: tcl: Use 'modify-phases' syntax. |
Date: |
Wed, 13 Dec 2017 13:30:37 -0500 (EST) |
mbakke pushed a commit to branch core-updates
in repository guix.
commit 1004a92c7201284a801e5c8be399e8852fc238be
Author: Marius Bakke <address@hidden>
Date: Wed Dec 13 07:30:13 2017 +0100
gnu: tcl: Use 'modify-phases' syntax.
* gnu/packages/tcl.scm (tcl)[arguments]: Use 'modify-phases'.
---
gnu/packages/tcl.scm | 34 ++++++++++++++++------------------
1 file changed, 16 insertions(+), 18 deletions(-)
diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index 01649ff..8e94c67 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -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
- branch core-updates updated (173c6ec -> 6ac46bf), Marius Bakke, 2017/12/13
- 01/07: gnu: freetype: Update to 2.8.1., Marius Bakke, 2017/12/13
- 03/07: gnu: curl: Add a search path for CURL_CA_BUNDLE., Marius Bakke, 2017/12/13
- 02/07: gnu: fontconfig: Update to 2.12.6., Marius Bakke, 2017/12/13
- 05/07: gnu: tcl, tk: Update to 8.6.7., Marius Bakke, 2017/12/13
- 06/07: gnu: tcl: Use 'modify-phases' syntax.,
Marius Bakke <=
- 04/07: gnu: curl: Remove obsolete workaround., Marius Bakke, 2017/12/13
- 07/07: gnu: mit-krb5: Update to 1.16., Marius Bakke, 2017/12/13