gnu: ghostscript: Use 'modify-phases'.

* gnu/packages/ghostscript.scm (ghostscript)[arguments]: Use
  'modify-phases' instead of a chain of 'alist-cons-after'.
This commit is contained in:
Ludovic Courtès 2015-04-05 10:45:56 +02:00
parent 85345684d6
commit c17b2adf54
1 changed files with 14 additions and 16 deletions

View File

@ -2,6 +2,7 @@
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -142,22 +143,19 @@ printing, and psresize, for adjusting page sizes.")
("tcl" ,tcl))) ("tcl" ,tcl)))
(arguments (arguments
`(#:phases `(#:phases
(alist-cons-after (modify-phases %standard-phases
'configure 'patch-config-files (add-after 'configure 'patch-config-files
(lambda _ (lambda _
(substitute* "base/all-arch.mak" (substitute* "base/all-arch.mak"
(("/bin/sh") (which "bash"))) (("/bin/sh") (which "bash")))
(substitute* "base/unixhead.mak" (substitute* "base/unixhead.mak"
(("/bin/sh") (which "bash")))) (("/bin/sh") (which "bash")))))
(alist-cons-after (add-after 'build 'build-so
'build 'build-so
(lambda _ (lambda _
(zero? (system* "make" "so"))) (zero? (system* "make" "so"))))
(alist-cons-after (add-after 'install 'install-so
'install 'install-so
(lambda _ (lambda _
(zero? (system* "make" "install-so"))) (zero? (system* "make" "install-so")))))))
%standard-phases)))))
(synopsis "PostScript and PDF interpreter") (synopsis "PostScript and PDF interpreter")
(description (description
"Ghostscript is an interpreter for the PostScript language and the PDF "Ghostscript is an interpreter for the PostScript language and the PDF