packages: Remove the default value for `license'.

* guix/packages.scm (<package>): Remove the default value for `license'.
* gnu/packages/bootstrap.scm (package-from-tarball,
  %bootstrap-glibc, %bootstrap-gcc): Initialize `license'.
* tests/packages.scm (dummy-package): Likewise.
This commit is contained in:
Ludovic Courtès 2013-03-07 00:42:18 +01:00
parent 6ba9dd813d
commit 1fb78cb2c3
3 changed files with 8 additions and 5 deletions

View File

@ -104,7 +104,8 @@ check whether everything is alright."
("tarball" ,(bootstrap-origin (source* (%current-system)))))) ("tarball" ,(bootstrap-origin (source* (%current-system))))))
(synopsis description*) (synopsis description*)
(description #f) (description #f)
(home-page #f))) (home-page #f)
(license #f)))
(define package-with-bootstrap-guile (define package-with-bootstrap-guile
(memoize (memoize
@ -284,7 +285,8 @@ $out/bin/guile --version~%"
"08hv8i0axwnihrcgbz19x0a7s6zyv3yx38x8r29liwl8h82x9g88"))))))))) "08hv8i0axwnihrcgbz19x0a7s6zyv3yx38x8r29liwl8h82x9g88")))))))))
(synopsis "Bootstrap binaries and headers of the GNU C Library") (synopsis "Bootstrap binaries and headers of the GNU C Library")
(description #f) (description #f)
(home-page #f))) (home-page #f)
(license lgpl2.1+)))
(define %bootstrap-gcc (define %bootstrap-gcc
;; The initial GCC. Uses binaries from a tarball typically built by ;; The initial GCC. Uses binaries from a tarball typically built by
@ -351,7 +353,8 @@ exec ~a/bin/.gcc-wrapped -B~a/lib \
"06wqs0xxnpw3hn0xjb4c9cs0899p1xwkcysa2rvzhvpra0c5vsg2"))))))))) "06wqs0xxnpw3hn0xjb4c9cs0899p1xwkcysa2rvzhvpra0c5vsg2")))))))))
(synopsis "Bootstrap binaries of the GNU Compiler Collection") (synopsis "Bootstrap binaries of the GNU Compiler Collection")
(description #f) (description #f)
(home-page #f))) (home-page #f)
(license gpl3+)))
(define %bootstrap-inputs (define %bootstrap-inputs
;; The initial, pre-built inputs. From now on, we can start building our ;; The initial, pre-built inputs. From now on, we can start building our

View File

@ -135,7 +135,7 @@ representation."
(synopsis package-synopsis) ; one-line description (synopsis package-synopsis) ; one-line description
(description package-description) ; one or two paragraphs (description package-description) ; one or two paragraphs
(license package-license (default '())) (license package-license)
(home-page package-home-page) (home-page package-home-page)
(platforms package-platforms (default '())) (platforms package-platforms (default '()))
(maintainers package-maintainers (default '())) (maintainers package-maintainers (default '()))

View File

@ -49,7 +49,7 @@
(package (name name*) (version "0") (source #f) (package (name name*) (version "0") (source #f)
(build-system gnu-build-system) (build-system gnu-build-system)
(synopsis #f) (description #f) (synopsis #f) (description #f)
(home-page #f) (home-page #f) (license #f)
extra-fields ...)) extra-fields ...))
(test-assert "package-transitive-inputs" (test-assert "package-transitive-inputs"