gnu: lua-bitop: Define variants with package rewrites.

* gnu/packages/lua.scm (make-lua-bitop): Remove procedure.
  (lua-bitop): Convert to direct package definition.
  (lua5.2-bitop, lua5.1-bitop): Define as rewrite of lua-bitop.

Merges: https://codeberg.org/guix/guix/pulls/9183
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>

1 files changed, 7 insertions, 9 deletions

diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm
index e08875a9cdb..bcc0e6c61f0 100644
--- a/gnu/packages/lua.scm
+++ b/gnu/packages/lua.scm
@@ -1290,10 +1290,10 @@ Grammars (PEGs).")
   (lua-5.2 lua5.2-luv)
   (lua-5.1 lua5.1-luv))
 
-;; Lua 5.3 is not supported.
-(define (make-lua-bitop name lua)
+;; Lua 5.3 is not supported, so this package is not exported.
+(define lua-bitop
   (package
-    (name name)
+    (name "lua-bitop")
     (version "1.0.2")
     (source (origin
               (method url-fetch)
@@ -1310,7 +1310,7 @@ Grammars (PEGs).")
              (string-append "INSTALLPATH=printf "
                             (assoc-ref %outputs "out")
                             "/lib/lua/"
-                            ,(version-major+minor (package-version lua))
+                            ,(this-lua-version)
                             "/bit/bit.so"))
        #:phases
        (modify-phases %standard-phases
@@ -1323,11 +1323,9 @@ Grammars (PEGs).")
 on numbers.")
     (license license:expat)))
 
-(define-public lua5.2-bitop
-  (make-lua-bitop "lua5.2-bitop" lua-5.2))
-
-(define-public lua5.1-bitop
-  (make-lua-bitop "lua5.1-bitop" lua-5.1))
+(define-public-lua-variants lua-bitop
+  (lua-5.2 lua5.2-bitop)
+  (lua-5.1 lua5.1-bitop))
 
 (define (make-lua-djot name lua)
   (package