05/08: gnu: tdb: Use 'modify-phases' syntax.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 6ccb78144c78daf6d55edee6a6721565a0c4b520
Author: Efraim Flashner <address@hidden>
Date:   Sat Oct 8 22:14:36 2016 +0300

    gnu: tdb: Use 'modify-phases' syntax.
    
    * gnu/packages/databases.scm (tdb)[arguments]: Use 'modify-phases' syntax.
---
 gnu/packages/databases.scm |   18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index c5fc9c7..b5c4ffc 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -549,15 +549,15 @@ is in the public domain.")
                 "0i1l38h0vyck6zkcj4fn2l03spadlmyr1qa1xpdp9dy2ccbm3s1r"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (alist-replace
-                 'configure
-                 (lambda* (#:key outputs #:allow-other-keys)
-                   (let ((out (assoc-ref outputs "out")))
-                     ;; The 'configure' script is a wrapper for Waf and
-                     ;; doesn't recognize things like '--enable-fast-install'.
-                     (zero? (system* "./configure"
-                                     (string-append "--prefix=" out)))))
-                 %standard-phases)))
+     '(#:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               ;; The 'configure' script is a wrapper for Waf and
+               ;; doesn't recognize things like '--enable-fast-install'.
+               (zero? (system* "./configure"
+                               (string-append "--prefix=" out)))))))))
     (native-inputs
      `(;; TODO: Build the documentation.
        ;; ("docbook-xsl" ,docbook-xsl)