gnu: mame: Update to 0.239.

* gnu/packages/emulators.scm (mame): Update to 0.239.
[arguments]<#:make-flags>: Use gexps.
[native-inputs]: Remove labels.
[inputs]: Remove labels.

gnu/packages/emulators.scm

@@ -1710,7 +1710,7 @@ This is a part of the TiLP project.")
 (define-public mame
   (package
     (name "mame")
-    (version "0.238")
+    (version "0.239")
     (source
      (origin
        (method git-fetch)
@@ -1719,7 +1719,7 @@ This is a part of the TiLP project.")
              (commit (apply string-append "mame" (string-split version #\.)))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "188h9a4lla0gimbss1bfvlidsm0l8smhqrhplv973k8j2jgf74fb"))
+        (base32 "02by0pq0j8pi5dllk90g94nbszynp9wqg75bl5x8bqrc7h80a0dq"))
        (modules '((guix build utils)))
        (snippet
         ;; Remove bundled libraries.
@@ -1731,21 +1731,20 @@ This is a part of the TiLP project.")
                          "SDL2-override" "sqlite3" "utf8proc" "zlib")))))))
     (build-system gnu-build-system)
     (arguments
-     `(#:make-flags
+     (list
-       (cons*
+      #:make-flags
-        ;; A 'strict-overflow' error pops up on i686 so disable '-Werror'.
+      #~(cons*
-        "NOWERROR=1"
+         ;; A 'strict-overflow' error pops up on i686 so disable '-Werror'.
-        (string-append "QT_HOME=" (assoc-ref %build-inputs "qtbase"))
+         "NOWERROR=1"
-        (string-append "SDL_INI_PATH="
+         (string-append "QT_HOME=" #$(this-package-input "qtbase-5"))
-                       (assoc-ref %outputs "out")
+         (string-append "SDL_INI_PATH=" #$output "/share/mame/ini")
-                       "/share/mame/ini")
+         (map (lambda (lib)
-        (map (lambda (lib)
+                (string-append "USE_SYSTEM_LIB_" (string-upcase lib) "=1"))
-               (string-append "USE_SYSTEM_LIB_" (string-upcase lib) "=1"))
+              '("asio" "expat" "flac" "glm" "jpeg" "lua" "portaudio" "portmidi"
-             '("asio" "expat" "flac" "glm" "jpeg" "lua" "portaudio" "portmidi"
+                "pugixml" "rapidjson" "sqlite3" "utf8proc" "zlib")))
-               "pugixml" "rapidjson" "sqlite3" "utf8proc" "zlib")))
+      #:tests? #f                       ;no test in regular release
-       #:tests? #f                      ;no test in regular release
+      #:phases
-       #:phases
+      `(modify-phases %standard-phases
-       (modify-phases %standard-phases
          (delete 'configure)
          (add-after 'build 'build-documentation
            (lambda _ (invoke "make" "-C" "docs" "man" "info")))
@@ -1853,32 +1852,32 @@ This is a part of the TiLP project.")
                            Keywords=Game;Emulator;Arcade;~%"
                            executable)))))))))
     (native-inputs
-     `(("pkg-config" ,pkg-config)
+     (list pkg-config
-       ("sphinx" ,python-sphinx)
+           python-sphinx
-       ("sphinxcontrib-svg2pdfconverter" ,python-sphinxcontrib-svg2pdfconverter)
+           python-sphinxcontrib-svg2pdfconverter
-       ("texinfo" ,texinfo)))
+           texinfo))
     (inputs
-     `(("alsa-lib" ,alsa-lib)
+     (list alsa-lib
-       ("asio" ,asio)
+           asio
-       ("expat" ,expat)
+           expat
-       ("flac" ,flac)
+           flac
-       ("fontconfig" ,fontconfig)
+           fontconfig
-       ("glm" ,glm)
+           glm
-       ("libjpeg" ,libjpeg-turbo)
+           libjpeg-turbo
-       ("libxi" ,libxi)
+           libxi
-       ("libxinerama" ,libxinerama)
+           libxinerama
-       ("lua" ,lua)
+           lua
-       ("portaudio" ,portaudio)
+           portaudio
-       ("portmidi" ,portmidi)
+           portmidi
-       ("pugixml" ,pugixml)
+           pugixml
-       ("pulseaudio" ,pulseaudio)
+           pulseaudio
-       ("python-wrapper" ,python-wrapper)
+           python-wrapper
-       ("qtbase" ,qtbase-5)
+           qtbase-5
-       ("rapidjson" ,rapidjson)
+           rapidjson
-       ("sdl" ,(sdl-union (list sdl2 sdl2-ttf)))
+           (sdl-union (list sdl2 sdl2-ttf))
-       ("sqlite" ,sqlite)
+           sqlite
-       ("utf8proc" ,utf8proc)
+           utf8proc
-       ("zlib" ,zlib)))
+           zlib))
     (home-page "https://www.mamedev.org")
     (synopsis "Multi-purpose emulation framework")
     (description "MAME's purpose is to preserve decades of software