From 12abb19dfbd90089e04ccbc94f0bd8ee2cbe3729 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 23 Jan 2013 22:47:39 +0100
Subject: 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/mit-krb5.scm | 51 +++++++++++++++++++++++------------------------
 1 file changed, 25 insertions(+), 26 deletions(-)

(limited to 'gnu/packages/mit-krb5.scm')

diff --git a/gnu/packages/mit-krb5.scm b/gnu/packages/mit-krb5.scm
index 141957697c..fe1170721e 100644
--- a/gnu/packages/mit-krb5.scm
+++ b/gnu/packages/mit-krb5.scm
@@ -42,36 +42,35 @@
              ("perl" ,perl)
              ))
    (arguments
-    (lambda (system)
-      `(#:phases
-        (alist-replace
-         'unpack
-         (lambda* (#:key source #:allow-other-keys)
-          (let ((inner
-                 (substring source
-                            (string-index-right source #\k)
-                            (string-index-right source #\-))))
+    '(#:phases
+      (alist-replace
+       'unpack
+       (lambda* (#:key source #:allow-other-keys)
+         (let ((inner
+                (substring source
+                           (string-index-right source #\k)
+                           (string-index-right source #\-))))
            (and (zero? (system* "tar" "xvf" source))
                 (zero? (system* "tar" "xvf" (string-append inner ".tar.gz")))
                 (chdir inner)
                 (chdir "src"))))
-      (alist-replace
-       'check
-       (lambda* (#:key inputs #:allow-other-keys #:rest args)
-        (let ((perl (assoc-ref inputs "perl"))
-              (check (assoc-ref %standard-phases 'check)))
-          (substitute* "plugins/kdb/db2/libdb2/test/run.test"
-                       (("/bin/cat") (string-append perl "/bin/perl")))
-          (substitute* "plugins/kdb/db2/libdb2/test/run.test"
-                       (("D/bin/sh") (string-append "D" (which "bash"))))
-          (substitute* "plugins/kdb/db2/libdb2/test/run.test"
-                       (("bindir=/bin/.") (string-append "bindir=" perl "/bin")))
-           ;; use existing files and directories in test
-          (substitute* "tests/resolve/Makefile"
-                       (("-p telnet") "-p 23"))
-           ;; avoid service names since /etc/services is unavailable
-          (apply check args)))
-          %standard-phases)))))
+       (alist-replace
+        'check
+        (lambda* (#:key inputs #:allow-other-keys #:rest args)
+          (let ((perl (assoc-ref inputs "perl"))
+                (check (assoc-ref %standard-phases 'check)))
+            (substitute* "plugins/kdb/db2/libdb2/test/run.test"
+              (("/bin/cat") (string-append perl "/bin/perl")))
+            (substitute* "plugins/kdb/db2/libdb2/test/run.test"
+              (("D/bin/sh") (string-append "D" (which "bash"))))
+            (substitute* "plugins/kdb/db2/libdb2/test/run.test"
+              (("bindir=/bin/.") (string-append "bindir=" perl "/bin")))
+            ;; use existing files and directories in test
+            (substitute* "tests/resolve/Makefile"
+              (("-p telnet") "-p 23"))
+            ;; avoid service names since /etc/services is unavailable
+            (apply check args)))
+        %standard-phases))))
    (synopsis "MIT Kerberos 5")
    (description
     "Massachusetts Institute of Technology implementation of Kerberos.
-- 
cgit v1.2.3