summary refs log tree commit diff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2017-04-16 19:14:17 +0300
committerEfraim Flashner <efraim@flashner.co.il>2017-04-18 06:36:39 +0300
commit0c1a9438dd64137a68481c64ae6b61f4660d536a (patch)
tree4325bc2f657995c20420dced3b88edf7334f76da
parent74f04d85566c8a6a83ec06e60df1f5942fa853d8 (diff)
downloadguix-0c1a9438dd64137a68481c64ae6b61f4660d536a.tar.gz
gnu: libsigsegv: Use 'modify-phases' syntax.
* gnu/packages/libsigsegv.scm (libsigsegv)[arguments]: Use
'modify-phases' syntax.
-rw-r--r--gnu/packages/libsigsegv.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/gnu/packages/libsigsegv.scm b/gnu/packages/libsigsegv.scm
index 608acba696..2a44819820 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 <ludo@gnu.org>
+;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; 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