gnu: mc: Use G-expressions.

* gnu/packages/mc.scm (mc)[arguments]: Rewrite as G-expressions.

gnu/packages/mc.scm

@@ -32,6 +32,7 @@ (define-module (gnu packages mc)
   #:use-module (gnu packages)
   #:use-module (guix build-system gnu)
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix licenses)
   #:use-module (guix packages))
 
@@ -47,19 +48,13 @@ (define-public mc
       (sha256
        (base32 "1py7jm620lsas7rcv5j69608gdshmp25d9gx958hr5sb2jr3rg2y"))))
     (build-system gnu-build-system)
-    (native-inputs (list perl pkg-config))
-    (inputs (list aspell
-                  check
-                  glib
-                  gpm
-                  libssh2
-                  ncurses
-                  unzip))
     (arguments
-     `(#:configure-flags
-       '("--with-screen=ncurses" "--enable-aspell")
+     (list
+      #:configure-flags
+      #~(list "--with-screen=ncurses"
+              "--enable-aspell")
       #:phases
-       (modify-phases %standard-phases
+      #~(modify-phases %standard-phases
           (add-after 'patch-source-shebangs 'patch-FHS-file-names
             (lambda _
               ;; Patch files to refer to executables in the store or $PATH.
@@ -80,8 +75,7 @@ (define-public mc
               ;; There are other /bin/<shell>s hard-coded in this file, but they
               ;; are never tried after bash (mc's first choice) is found.
               (substitute* "lib/shell.c"
-               (("/bin/bash") (which "bash")))
-             #t))
+                (("/bin/bash") (which "bash")))))
           (add-before 'check 'fix-tests
             (lambda _
               ;; Don't expect a UID or GID of ‘0’ in the build environment.
@@ -93,8 +87,15 @@ (define-public mc
               ;; (resolved_path == data->expected_string): ("" == "/usr/bin")
               (substitute* "tests/lib/mc_realpath.c"
                 (("/usr/bin") "/")
-               (("usr/bin") "/"))
-             #t)))))
+                (("usr/bin") "/")))))))
+    (native-inputs (list perl pkg-config))
+    (inputs (list aspell
+                  check
+                  glib
+                  gpm
+                  libssh2
+                  ncurses
+                  unzip))
     (home-page "https://www.midnight-commander.org")
     (properties
       `((release-monitoring-url . "https://ftp.osuosl.org/pub/midnightcommander/")))