gnu: cmake: Use 'modify-phases'.

* gnu/packages/cmake.scm (cmake)[arguments]: Use 'modify-phases'.

gnu/packages/cmake.scm

@@ -50,8 +50,9 @@
     (build-system gnu-build-system)
     (arguments
      `(#:test-target "test"
-       #:phases (alist-cons-before
-                 'configure 'patch-bin-sh
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'patch-bin-sh
            (lambda _
            ;; Replace "/bin/sh" by the right path in... a lot of
            ;; files.
@@ -67,22 +68,19 @@
                  "Source/cmExecProgramCommand.cxx"
                  "Utilities/cmbzip2/Makefile-libbz2_so"
                  "Utilities/Release/release_cmake.cmake"
-                         "Utilities/cmlibarchive/libarchive/\
-archive_write_set_format_shar.c"
+                 "Utilities/cmlibarchive/libarchive/archive_write_set_format_shar.c"
                  "Tests/CMakeLists.txt"
                  "Tests/RunCMake/File_Generate/RunCMakeTest.cmake")
-                     (("/bin/sh") (which "sh"))))
-                 (alist-cons-before
-                  'configure 'set-paths
+               (("/bin/sh") (which "sh")))))
+         (add-before 'configure 'set-paths
            (lambda _
              ;; Help cmake's bootstrap process to find system libraries
              (begin
                (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
                (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))
                ;; Get verbose output from failed tests
-                      (setenv "CTEST_OUTPUT_ON_FAILURE" "TRUE")))
-                  (alist-replace
-                   'configure
+               (setenv "CTEST_OUTPUT_ON_FAILURE" "TRUE"))))
+         (replace 'configure
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
                (zero? (system*
@@ -99,18 +97,15 @@ archive_write_set_format_shar.c"
                        "--mandir=share/man"
                        ,(string-append
                          "--docdir=share/doc/cmake-"
-                                 (version-major+minor version))))))
-                   (alist-cons-after
-                    'unpack 'remove-libarchive-version-test
-                    ; This test check has been failing consistantly over
-                    ; libarchive 3.2.x and cmake 3.4.x and 3.5.x so we
-                    ; disable it for now
+                         (version-major+minor version)))))))
+         (add-after 'unpack 'remove-libarchive-version-test
+           ; This test check has been failing consistantly over libarchive 3.2.x
+           ; and cmake 3.4.x and 3.5.x so we disable it for now
            (lambda _
                (substitute*
                "Tests/CMakeOnly/AllFindModules/CMakeLists.txt"
                (("LibArchive") ""))
-                      #t)
-                   %standard-phases))))))
+               #t)))))
     (inputs
      `(("file"       ,file)
        ("curl"       ,curl)