03/06: gnu: libsigsegv: Use 'modify-phases' syntax.

[Efraim Flashner]

efraim pushed a commit to branch core-updates
in repository guix.

commit 0c1a9438dd64137a68481c64ae6b61f4660d536a
Author: Efraim Flashner <address@hidden>
Date:   Sun Apr 16 19:14:17 2017 +0300

    gnu: libsigsegv: Use 'modify-phases' syntax.
    
    * gnu/packages/libsigsegv.scm (libsigsegv)[arguments]: Use
    'modify-phases' syntax.
---
 gnu/packages/libsigsegv.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/libsigsegv.scm b/gnu/packages/libsigsegv.scm
index 608acba..2a44819 100644
--- a/gnu/packages/libsigsegv.scm
+++ b/gnu/packages/libsigsegv.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2012, 2013 Ludovic Courtès <address@hidden>
+;;; Copyright © 2017 Efraim Flashner <address@hidden>
 ;;;
 ;;; 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'
     (if (string-contains (or (%current-target-system) (%current-system))
                          "mips64el")
-        `(#:phases (alist-cons-before
-                    'configure 'patch-mips-old-h
-                    (lambda _
-                      (substitute* "src/fault-linux-mips-old.h"
-                        (("#include <asm/sigcontext\\.h>") "")))
-                    %standard-phases))
+        `(#:phases (modify-phases %standard-phases
+                     (add-before 'configure 'patch-mips-old-h
+                       (lambda _
+                         (substitute* "src/fault-linux-mips-old.h"
+                           (("#include <asm/sigcontext\\.h>") ""))
+                         #t))))
         '()))
    (description
     "GNU libsigsegv is a library to handle page faults, which occur when a