From 91430de6dfb8b05989d64ad0b4e3f5a01f8cce2a Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Fri, 14 Aug 2015 17:04:08 +0200
Subject: [PATCH] gnu: flint: Rewrite using the modify-phases syntax.

* gnu/packages/algebra.scm (flint)[arguments]: Rewrite the phases using
  the modify-phases syntax.
---
 gnu/packages/algebra.scm | 37 ++++++++++++++++++-------------------
 1 file changed, 18 insertions(+), 19 deletions(-)

diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm
index 03c575c95b..2d0804acc6 100644
--- a/gnu/packages/algebra.scm
+++ b/gnu/packages/algebra.scm
@@ -203,25 +203,24 @@ GP2C, the GP to C compiler, translates GP scripts to PARI programs.")
       ("mpfr" ,mpfr))) ; header files from both are included by flint/arith.h
    (arguments
     `(#:phases
-        (alist-replace
-         'configure
-         (lambda* (#:key inputs outputs #:allow-other-keys)
-           (let ((out (assoc-ref outputs "out"))
-                 (gmp (assoc-ref inputs "gmp"))
-                 (mpfr (assoc-ref inputs "mpfr")))
-             ;; Drop test failing with gmp-6 due to changed invertibility
-             ;; of 0 in Z/1 Z, which according to the flint authors has no
-             ;; impact on flint.
-             ;; FIXME: Drop with later version.
-             (delete-file "fmpz/test/t-invmod.c")
-             ;; do not pass "--enable-fast-install", which makes the
-             ;; homebrew configure process fail
-             (zero? (system*
-                     "./configure"
-                     (string-append "--prefix=" out)
-                     (string-append "--with-gmp=" gmp)
-                     (string-append "--with-mpfr=" mpfr)))))
-         %standard-phases)))
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (gmp (assoc-ref inputs "gmp"))
+                   (mpfr (assoc-ref inputs "mpfr")))
+               ;; Drop test failing with gmp-6 due to changed invertibility
+               ;; of 0 in Z/1 Z, which according to the flint authors has no
+               ;; impact on flint.
+               ;; FIXME: Drop with later version.
+               (delete-file "fmpz/test/t-invmod.c")
+               ;; do not pass "--enable-fast-install", which makes the
+               ;; homebrew configure process fail
+               (zero? (system*
+                       "./configure"
+                       (string-append "--prefix=" out)
+                       (string-append "--with-gmp=" gmp)
+                       (string-append "--with-mpfr=" mpfr)))))))))
    (synopsis "Fast library for number theory")
    (description
     "FLINT is a C library for number theory.  It supports arithmetic