nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2013-01-23 22:47:39 +01:00
parent bbb7a00e9a
commit 12abb19dfb
5 changed files with 103 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/algebra.scm
View File

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

5
gnu/packages/bdb.scm
View File

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

5
gnu/packages/mit-krb5.scm
View File

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

5
gnu/packages/openssl.scm
View File

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

5
gnu/packages/perl.scm
View File

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