gnu: atlas: Use 'modify-phases'.

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

gnu/packages/maths.scm

@@ -2079,37 +2079,33 @@ packages.")
          ,(string-append "--with-netlib-lapack-tarfile="
                          (assoc-ref %build-inputs "lapack-tar")))
        #:phases
-        (alist-cons-after
-         'install 'install-doc
+       (modify-phases %standard-phases
+         (add-after 'install 'install-doc
            (lambda* (#:key outputs inputs #:allow-other-keys)
              (let ((doc (string-append (assoc-ref outputs "doc")
                                        "/share/doc/atlas")))
                (mkdir-p doc)
                (fold (lambda (file previous)
                        (and previous (zero? (system* "cp" file doc))))
-                   #t (find-files "../ATLAS/doc" ".*"))))
-         (alist-cons-after
-          'check 'check-pt
-          (lambda _ (zero? (system* "make" "ptcheck")))
+                     #t (find-files "../ATLAS/doc" ".*")))))
+         (add-after 'check 'check-pt
+           (lambda _ (zero? (system* "make" "ptcheck"))))
          ;; Fix files required to run configure.
-          (alist-cons-before
-           'configure 'fix-/bin/sh
+         (add-before 'configure 'fix-/bin/sh
            (lambda _
              ;; Use `sh', not `/bin/sh'.
              (substitute* (find-files "." "Makefile|configure|SpewMakeInc\\.c")
                (("/bin/sh")
-                "sh")))
+                "sh"))))
          ;; Fix /bin/sh in generated make files.
-           (alist-cons-after
-            'configure 'fix-/bin/sh-in-generated-files
+         (add-after 'configure 'fix-/bin/sh-in-generated-files
            (lambda _
              (substitute* (find-files "." "^[Mm]ake\\.inc.*")
                (("/bin/sh")
-                 "sh")))
+                "sh"))))
          ;; ATLAS configure program does not accepts the default flags
          ;; passed by the 'gnu-build-system'.
-            (alist-replace
-             'configure
+         (replace 'configure
            (lambda* (#:key native-inputs inputs outputs
                            (configure-flags '())
                            #:allow-other-keys #:rest args)
@@ -2130,8 +2126,7 @@ packages.")
                (format #t "configure flags: ~s~%" flags)
                (zero? (apply system* bash
                              (string-append srcdir "/configure")
-                               flags))))
-             %standard-phases)))))))
+                             flags))))))))
     (synopsis "Automatically Tuned Linear Algebra Software")
     (description
      "ATLAS is an automatically tuned linear algebra software library