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

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

gnu/packages/dejagnu.scm

@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016 Efraim Flashner <efraim@flasher.co.il>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -38,8 +39,9 @@
     (build-system gnu-build-system)
     (inputs `(("expect" ,expect)))
     (arguments
-     '(#:phases (alist-replace
-                 'check
+     '(#:phases
+       (modify-phases %standard-phases
+         (replace 'check
            (lambda _
              ;; Note: The test-suite *requires* /dev/pts among the
              ;; `build-chroot-dirs' of the build daemon when
@@ -49,9 +51,8 @@
              (if (and (directory-exists? "/dev/pts")
                       (directory-exists? "/proc"))
                  (begin
-                        ;; Provide `runtest' with a log name, otherwise
-                        ;; it tries to run `whoami', which fails when in
-                        ;; a chroot.
+                  ;; Provide `runtest' with a log name, otherwise it
+                  ;; tries to run `whoami', which fails when in a chroot.
                   (setenv "LOGNAME" "guix-builder")
 
                   ;; The test-suite needs to have a non-empty stdin:
@@ -60,9 +61,8 @@
                    (system "make check < /dev/zero")))
                  (begin
                    (display "test suite cannot be run, skipping\n")
-                         #t)))
-                 (alist-cons-after
-                  'install 'post-install
+                   #t))))
+         (add-after 'install 'post-install
            (lambda* (#:key inputs outputs #:allow-other-keys)
              ;; Use the right `expect' binary.
              (let ((out    (assoc-ref outputs "out"))
@@ -71,8 +71,7 @@
                  (("^mypath.*$" all)
                   (string-append all
                                  "export PATH="
-                                        expect "/bin:$PATH\n")))))
-                  %standard-phases))))
+                                 expect "/bin:$PATH\n")))))))))
     (home-page
      "https://www.gnu.org/software/dejagnu/")
     (synopsis "GNU software testing framework")