gnu: Remove unnecessary closures around `arguments' value.

* gnu/packages/algebra.scm (pari-gp): Remove closure around the value of
  `arguments'.
* gnu/packages/bdb.scm (bdb): Likewise.
* gnu/packages/mit-krb5.scm (mit-krb5): Likewise.
* gnu/packages/openssl.scm (openssl): Likewise.
* gnu/packages/perl.scm (perl): Likewise.

gnu/packages/algebra.scm

@@ -120,8 +120,7 @@ extensive test suite.")
              ("perl" ,perl)
              ("readline" ,readline)))
    (arguments
-    (lambda (system)
-      `(#:make-flags '("gp")
+    '(#:make-flags '("gp")
       ;; FIXME: building the documentation requires tex; once this is available,
       ;; replace "gp" by "all"
       #:test-target "dobench"
@@ -139,7 +138,7 @@ extensive test suite.")
                      (string-append "--with-gmp=" gmp)))))
        ;; FIXME: readline and gmp will be detected automatically in the next
        ;; stable release
-         %standard-phases))))
+       %standard-phases)))
    (synopsis "PARI/GP, a computer algebra system for number theory")
    (description
     "PARI/GP is a widely used computer algebra system designed for fast

gnu/packages/bdb.scm

@@ -35,8 +35,7 @@
                      "1f2g2612lf8djbwbwhxsvmffmf9d7693kh2l20195pqp0f9jmnfx"))))
    (build-system gnu-build-system)
    (arguments
-    (lambda (system)
-      `(#:tests? #f ; no check target available
+    '(#:tests? #f                            ; no check target available
       #:phases
       (alist-replace
        'configure
@@ -47,7 +46,7 @@
                      (string-append "--prefix=" out)
                      (string-append "CONFIG_SHELL=" (which "bash"))
                      (string-append "SHELL=" (which "bash"))))))
-         %standard-phases))))
+       %standard-phases)))
    (synopsis "db, the Berkeley database")
    (description
     "Berkeley DB is an embeddable database allowing developers the choice of

gnu/packages/mit-krb5.scm

@@ -42,8 +42,7 @@
              ("perl" ,perl)
              ))
    (arguments
-    (lambda (system)
-      `(#:phases
+    '(#:phases
       (alist-replace
        'unpack
        (lambda* (#:key source #:allow-other-keys)
@@ -71,7 +70,7 @@
               (("-p telnet") "-p 23"))
             ;; avoid service names since /etc/services is unavailable
             (apply check args)))
-          %standard-phases)))))
+        %standard-phases))))
    (synopsis "MIT Kerberos 5")
    (description
     "Massachusetts Institute of Technology implementation of Kerberos.

gnu/packages/openssl.scm

@@ -37,8 +37,7 @@
    (build-system gnu-build-system)
    (inputs `(("perl" ,perl)))
    (arguments
-    (lambda (system)
-      `(#:parallel-build? #f
+    '(#:parallel-build? #f
       #:parallel-tests? #f
       #:test-target "test"
       #:phases
@@ -60,7 +59,7 @@
                (string-append bash "/bin/bash"))
               (("/bin/rm")
                "rm"))))
-          %standard-phases)))))
+        %standard-phases))))
    (synopsis "OpenSSL, an SSL/TLS implementation")
    (description
     "OpenSSL is an implementation of SSL/TLS")

gnu/packages/perl.scm

@@ -38,8 +38,7 @@
                "15qxzba3a50c9nik5ydgyfp62x7h9vxxn12yd1jgl93hb1wj96km"))))
     (build-system gnu-build-system)
     (arguments
-     (lambda (system)
-       `(#:tests? #f
+     '(#:tests? #f
        #:patches (list (assoc-ref %build-inputs "patch/no-sys-dirs"))
        #:phases
        (alist-replace
@@ -63,7 +62,7 @@
                       "-Duseshrplib"
                       (string-append "-Dlocincpth=" libc "/include")
                       (string-append "-Dloclibpth=" libc "/lib")))))
-          %standard-phases))))
+        %standard-phases)))
     (inputs `(("patch/no-sys-dirs" ,(search-patch "perl-no-sys-dirs.patch"))))
     (synopsis "Implementation of the Perl programming language")
     (description