TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: ghostscript: Use 'modify-phases'.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/ghostscript.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -142,22 +143,19 @@ (define-public ghostscript
("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