From a4349e7a00c479bb7926cfb5efc78daacf7191b4 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Sun, 29 May 2016 08:56:07 +0300
Subject: [PATCH] gnu: lua: Use 'modify-phases'.

* gnu/packages/lua.scm (lua)[arguments]: Use 'modify-phases'.
---
 gnu/packages/lua.scm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm
index a5315342ea..f699330899 100644
--- a/gnu/packages/lua.scm
+++ b/gnu/packages/lua.scm
@@ -47,18 +47,18 @@
                     (guix build utils)
                     (srfi srfi-1))
        #:test-target "test"
-       #:phases (alist-replace
-                 'build
-                 (lambda _ (zero? (system* "make" "CFLAGS=-fPIC" "linux")))
-                 (alist-replace
-                  'install
-                  (lambda* (#:key outputs #:allow-other-keys)
-                    (let ((out (assoc-ref outputs "out")))
-                      (zero? (system* "make" "install"
-                                      (string-append "INSTALL_TOP=" out)
-                                      (string-append "INSTALL_MAN=" out
-                                                     "/share/man/man1")))))
-                  (alist-delete 'configure %standard-phases)))))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (replace 'build
+           (lambda _ (zero? (system* "make" "CFLAGS=-fPIC" "linux"))))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (zero? (system* "make" "install"
+                               (string-append "INSTALL_TOP=" out)
+                               (string-append "INSTALL_MAN=" out
+                                              "/share/man/man1")))))))))
     (home-page "http://www.lua.org/")
     (synopsis "Embeddable scripting language")
     (description