nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: m4: Update phase style. 

* gnu/packages/m4.scm (m4)[arguments]: Use MODIFY-PHASES syntax and end
phase with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-20 18:23:48 +01:00
parent 5170bbd5bc
commit 05d86d70d9
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/packages/m4.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -40,18 +41,19 @@
;; proceeds and fails, unsurprisingly. ;; proceeds and fails, unsurprisingly.
#:tests? ,(not (%current-target-system)) #:tests? ,(not (%current-target-system))
#:phases (alist-cons-before #:phases
'check 'pre-check (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'check 'pre-check
;; Fix references to /bin/sh. (lambda* (#:key inputs #:allow-other-keys)
(let ((bash (assoc-ref inputs "bash"))) ;; Fix references to /bin/sh.
(for-each patch-shebang (let ((bash (assoc-ref inputs "bash")))
(find-files "tests" "\\.sh$")) (for-each patch-shebang
(substitute* (find-files "tests" (find-files "tests" "\\.sh$"))
"posix_spawn") (substitute* (find-files "tests"
(("/bin/sh") "posix_spawn")
(format #f "~a/bin/sh" bash))))) (("/bin/sh")
%standard-phases))) (format #f "~a/bin/sh" bash)))
#t))))))
(synopsis "Macro processor") (synopsis "Macro processor")
(description (description
"GNU M4 is an implementation of the M4 macro language, which features "GNU M4 is an implementation of the M4 macro language, which features