[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[v2 2/3] gnu: lua-5.2: Use make-flags and modify-phases.
From: |
Leo Famulari |
Subject: |
[v2 2/3] gnu: lua-5.2: Use make-flags and modify-phases. |
Date: |
Mon, 14 Dec 2015 01:57:15 -0500 |
* gnu/packages/lua.scm (lua-5.2)[arguments]: Use make-flags and
modify-phases to control build process, replacing use of
'alist-' procedures.
---
gnu/packages/lua.scm | 35 +++++++++++++----------------------
1 file changed, 13 insertions(+), 22 deletions(-)
diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm
index ace2c01..3a3de62 100644
--- a/gnu/packages/lua.scm
+++ b/gnu/packages/lua.scm
@@ -43,29 +43,20 @@
(build-system gnu-build-system)
(inputs `(("readline", readline)))
(arguments
- '(#:modules ((guix build gnu-build-system)
- (guix build utils)
- (srfi srfi-1))
+ '(#:phases (modify-phases %standard-phases
+ (delete 'configure))
#:test-target "test"
- #:phases (alist-replace
- 'build
- ;; We use $PLAT to select the platform-dependent method
- ;; for loading shared libraries. We also build the Lua
- ;; interpreter and shared library as position
- ;; independent code.
- (lambda _ (zero? (system* "make"
- "PLAT=linux"
- "MYCFLAGS=-fPIC"
- "MYLDFLAGS=-fPIC")))
- (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)))))
+ ;; We use $PLAT to select the platform-dependent method
+ ;; for loading shared libraries. We also build the Lua
+ ;; interpreter and shared library as position
+ ;; independent code.
+ #:make-flags (list "PLAT= linux"
+ "MYCFLAGS= -fPIC"
+ "MYLDFLAGS= -fPIC"
+ (string-append "INSTALL_TOP= "
+ (assoc-ref %outputs "out"))
+ (string-append "INSTALL_MAN= "
+ (assoc-ref %outputs "out")))))
(home-page "http://www.lua.org/")
(synopsis "Embeddable scripting language")
(description
--
2.6.2