03/05: gnu: luajit: Make available as ‘luajit’.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit a093bb69679f7128a0f930ea825a4babe88ca100
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Thu Feb 8 01:38:03 2018 +0100

    gnu: luajit: Make available as ‘luajit’.
    
    * gnu/packages/lua.scm (luajit)[arguments]: Add a ‘create-luajit-symlink’
    phase to make the interpreter available simply as ‘luajit’.
---
 gnu/packages/lua.scm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm
index fd14956..5592b96 100644
--- a/gnu/packages/lua.scm
+++ b/gnu/packages/lua.scm
@@ -127,9 +127,19 @@ for configuration, scripting, and rapid prototyping.")
               (patches (search-patches "luajit-no_ldconfig.patch"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f                      ;luajit is distributed without tests
-       #:phases (modify-phases %standard-phases (delete 'configure))
-       #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs 
"out")))))
+     `(#:tests? #f                      ; luajit is distributed without tests
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)            ; no configure script
+         (add-after 'install 'create-luajit-symlink
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               (with-directory-excursion bin
+                 (symlink ,(string-append name "-" version)
+                          ,name)
+                 #t)))))
+         #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs 
"out")))))
     (home-page "http://www.luajit.org/";)
     (synopsis "Just in time compiler for Lua programming language version 5.1")
     (description