gnu: libsigsegv: Use 'modify-phases' syntax.

* gnu/packages/libsigsegv.scm (libsigsegv)[arguments]: Use
'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2017-04-16 19:14:17 +03:00
parent 74f04d8556
commit 0c1a9438dd
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 7 additions and 6 deletions

View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -44,12 +45,12 @@
;; linux-libre-headers-cross-mips64el-linux-gnu-3.3.8/include/asm/sigcontext.h:57:8: error: redefinition of 'struct sigcontext' ;; linux-libre-headers-cross-mips64el-linux-gnu-3.3.8/include/asm/sigcontext.h:57:8: error: redefinition of 'struct sigcontext'
(if (string-contains (or (%current-target-system) (%current-system)) (if (string-contains (or (%current-target-system) (%current-system))
"mips64el") "mips64el")
`(#:phases (alist-cons-before `(#:phases (modify-phases %standard-phases
'configure 'patch-mips-old-h (add-before 'configure 'patch-mips-old-h
(lambda _ (lambda _
(substitute* "src/fault-linux-mips-old.h" (substitute* "src/fault-linux-mips-old.h"
(("#include <asm/sigcontext\\.h>") ""))) (("#include <asm/sigcontext\\.h>") ""))
%standard-phases)) #t))))
'())) '()))
(description (description
"GNU libsigsegv is a library to handle page faults, which occur when a "GNU libsigsegv is a library to handle page faults, which occur when a