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

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 @@ (define-public ghostscript
("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"))) (add-after 'install 'install-so
(alist-cons-after (lambda _
'install 'install-so (zero? (system* "make" "install-so")))))))
(lambda _
(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