[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: gnu: lua: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/04: gnu: lua: Use 'modify-phases'. |
Date: |
Sun, 29 May 2016 06:48:08 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit a4349e7a00c479bb7926cfb5efc78daacf7191b4
Author: Efraim Flashner <address@hidden>
Date: Sun May 29 08:56:07 2016 +0300
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 a531534..f699330 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