gnu: netpbm: Use 'modify-phases' syntax.

* gnu/packages/netpbm.scm (netpbm)[arguments]: Do it.

gnu/packages/netpbm.scm

@@ -99,9 +99,9 @@
        ("python" ,python-wrapper)))
    (arguments
     `(#:phases
-      (alist-replace
-       'configure
-       (lambda _
+      (modify-phases %standard-phases
+       (replace 'configure
+         (lambda* (#:key inputs outputs #:allow-other-keys)
            (copy-file "config.mk.in" "config.mk")
            (chmod "config.mk" #o664)
            (let ((f (open-file "config.mk" "a")))
@@ -111,9 +111,8 @@
              (display "JPEGLIB = libjpeg.so\n" f)
              (display "ZLIB = libz.so\n" f)
              (display (string-append "LDFLAGS += -Wl,-rpath=" %output "/lib") f)
-         (close-port f)))
-      (alist-cons-before
-       'check 'setup-check
+             (close-port f))))
+       (add-before 'check 'setup-check
          (lambda _
            ;; install temporarily into /tmp/netpbm
            (system* "make" "package")
@@ -126,9 +125,8 @@
              (("all-in-place.test") "")
              (("pnmpsnr.test") "")
              (("pnmremap1.test") "")
-           (("gif-roundtrip.test") "")))
-      (alist-replace
-       'install
+             (("gif-roundtrip.test") ""))))
+       (replace 'install
          (lambda* (#:key outputs make-flags #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              (apply system* "make" "package"
@@ -141,8 +139,8 @@
              (system* "rm" "-r" (string-append out "/misc"))
              (with-directory-excursion out
                (for-each delete-file
-                     '("config_template" "pkginfo" "README" "VERSION")))))
-      %standard-phases)))))
+                         '("config_template" "pkginfo" "README"
+                           "VERSION")))))))))
    (synopsis "Toolkit for manipulation of images")
    (description
     "Netpbm is a toolkit for the manipulation of graphic images, including