[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: ghostscript: Use 'modify-phases'.
From: |
Ludovic Courtès |
Subject: |
02/03: gnu: ghostscript: Use 'modify-phases'. |
Date: |
Sun, 05 Apr 2015 13:23:49 +0000 |
civodul pushed a commit to branch core-updates
in repository guix.
commit c17b2adf541d24dab357f54b62e6399800534313
Author: Ludovic Courtès <address@hidden>
Date: Sun Apr 5 10:45:56 2015 +0200
gnu: ghostscript: Use 'modify-phases'.
* gnu/packages/ghostscript.scm (ghostscript)[arguments]: Use
'modify-phases' instead of a chain of 'alist-cons-after'.
---
gnu/packages/ghostscript.scm | 30 ++++++++++++++----------------
1 files changed, 14 insertions(+), 16 deletions(-)
diff --git a/gnu/packages/ghostscript.scm b/gnu/packages/ghostscript.scm
index 0d45a99..3c18093 100644
--- a/gnu/packages/ghostscript.scm
+++ b/gnu/packages/ghostscript.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2013 Andreas Enge <address@hidden>
;;; Copyright © 2014 Mark H Weaver <address@hidden>
;;; Copyright © 2015 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2015 Ludovic Courtès <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -142,22 +143,19 @@ printing, and psresize, for adjusting page sizes.")
("tcl" ,tcl)))
(arguments
`(#:phases
- (alist-cons-after
- 'configure 'patch-config-files
- (lambda _
- (substitute* "base/all-arch.mak"
- (("/bin/sh") (which "bash")))
- (substitute* "base/unixhead.mak"
- (("/bin/sh") (which "bash"))))
- (alist-cons-after
- 'build 'build-so
- (lambda _
- (zero? (system* "make" "so")))
- (alist-cons-after
- 'install 'install-so
- (lambda _
- (zero? (system* "make" "install-so")))
- %standard-phases)))))
+ (modify-phases %standard-phases
+ (add-after 'configure 'patch-config-files
+ (lambda _
+ (substitute* "base/all-arch.mak"
+ (("/bin/sh") (which "bash")))
+ (substitute* "base/unixhead.mak"
+ (("/bin/sh") (which "bash")))))
+ (add-after 'build 'build-so
+ (lambda _
+ (zero? (system* "make" "so"))))
+ (add-after 'install 'install-so
+ (lambda _
+ (zero? (system* "make" "install-so")))))))
(synopsis "PostScript and PDF interpreter")
(description
"Ghostscript is an interpreter for the PostScript language and the PDF