diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-23 22:47:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-23 23:33:09 +0100 |
| commit | 12abb19dfbd90089e04ccbc94f0bd8ee2cbe3729 (patch) | |
| tree | 2c85197829465c6d48075166bd313d6c228508ef /gnu/packages/mit-krb5.scm | |
| parent | bbb7a00e9a224d812a56c67956efb3e8a840cf0a (diff) | |
| download | gnu-guix-12abb19dfbd90089e04ccbc94f0bd8ee2cbe3729.tar gnu-guix-12abb19dfbd90089e04ccbc94f0bd8ee2cbe3729.tar.gz | |
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.
Diffstat (limited to 'gnu/packages/mit-krb5.scm')
| -rw-r--r-- | gnu/packages/mit-krb5.scm | 51 |
1 files changed, 25 insertions, 26 deletions
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. |