gnu: openssl: Use 'modify-phases'.

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

gnu/packages/tls.scm

@@ -203,23 +203,25 @@ required structures.")
       #:parallel-tests? #f
       #:test-target "test"
       #:phases
-      (alist-replace
+      (modify-phases %standard-phases
+        (replace
          'configure
          (lambda* (#:key outputs #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              (zero?
               (system* "./config"
-                     "shared"                   ; build shared libraries
+                       "shared"                   ;build shared libraries
                        "--libdir=lib"
                        (string-append "--prefix=" out)
+
                        ;; XXX FIXME: Work around a code generation bug in GCC
                        ;; 4.9.3 on ARM when compiled with -mfpu=neon.  See:
                        ;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917>
                        ,@(if (and (not (%current-target-system))
                                   (string-prefix? "armhf" (%current-system)))
                              '("-mfpu=vfpv3")
-                           '())))))
-       (alist-cons-before
+                             '()))))))
+        (add-before
          'patch-source-shebangs 'patch-tests
          (lambda* (#:key inputs native-inputs #:allow-other-keys)
            (let ((bash (assoc-ref (or native-inputs inputs) "bash")))
@@ -227,8 +229,7 @@ required structures.")
                (("/bin/sh")
                 (string-append bash "/bin/bash"))
                (("/bin/rm")
-               "rm"))))
-        %standard-phases))))
+                "rm"))))))))
    (native-search-paths
     ;; FIXME: These two variables must designate a single file or directory
     ;; and are not actually "search paths."  In practice it works OK in user