~ruther/guix-local

1fb78cb2c36a6b0d7a3ecf1f7150c4d99b01c1a9 — Ludovic Courtès 13 years ago 6ba9dd8
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.
3 files changed, 8 insertions(+), 5 deletions(-)

M gnu/packages/bootstrap.scm
M guix/packages.scm
M tests/packages.scm
M gnu/packages/bootstrap.scm => gnu/packages/bootstrap.scm +6 -3
@@ 104,7 104,8 @@ check whether everything is alright."
       ("tarball" ,(bootstrap-origin (source* (%current-system))))))
    (synopsis description*)
    (description #f)
    (home-page #f)))
    (home-page #f)
    (license #f)))

(define package-with-bootstrap-guile
  (memoize


@@ 284,7 285,8 @@ $out/bin/guile --version~%"
                          "08hv8i0axwnihrcgbz19x0a7s6zyv3yx38x8r29liwl8h82x9g88")))))))))
    (synopsis "Bootstrap binaries and headers of the GNU C Library")
    (description #f)
    (home-page #f)))
    (home-page #f)
    (license lgpl2.1+)))

(define %bootstrap-gcc
  ;; The initial GCC.  Uses binaries from a tarball typically built by


@@ 351,7 353,8 @@ exec ~a/bin/.gcc-wrapped -B~a/lib \
                          "06wqs0xxnpw3hn0xjb4c9cs0899p1xwkcysa2rvzhvpra0c5vsg2")))))))))
    (synopsis "Bootstrap binaries of the GNU Compiler Collection")
    (description #f)
    (home-page #f)))
    (home-page #f)
    (license gpl3+)))

(define %bootstrap-inputs
  ;; The initial, pre-built inputs.  From now on, we can start building our

M guix/packages.scm => guix/packages.scm +1 -1
@@ 135,7 135,7 @@ representation."

  (synopsis package-synopsis)                    ; one-line description
  (description package-description)              ; one or two paragraphs
  (license package-license (default '()))
  (license package-license)
  (home-page package-home-page)
  (platforms package-platforms (default '()))
  (maintainers package-maintainers (default '()))

M tests/packages.scm => tests/packages.scm +1 -1
@@ 49,7 49,7 @@
  (package (name name*) (version "0") (source #f)
           (build-system gnu-build-system)
           (synopsis #f) (description #f)
           (home-page #f)
           (home-page #f) (license #f)
           extra-fields ...))

(test-assert "package-transitive-inputs"