~ruther/guix-local

6d36a6f3b08e97468df59e4ec84ba75cffa39a44 — Andreas Enge 13 years ago a6ef51e
licenses: Add new meta-license fsf-free.

* guix/licenses.scm (fsf-free): New record with constructor.
1 files changed, 9 insertions(+), 1 deletions(-)

M guix/licenses.scm
M guix/licenses.scm => guix/licenses.scm +9 -1
@@ 39,7 39,8 @@
            qpl
            vim
            x11
            zlib))
            zlib
            fsf-free))

(define-record-type <license>
  (license name uri comment)


@@ 234,4 235,11 @@ which may be a file:// URI pointing the package's tree."
           "http://www.gzip.org/zlib/zlib_license.html"
           "https://www.gnu.org/licenses/license-list#ZLib"))

(define* (fsf-free uri #:optional (comment ""))
  "Return a license that does not fit any of the ones above or a collection
of licenses, approved as free by the FSF.  More details can be found at URI."
  (license "FSF-free"
           uri
           comment))

;;; licenses.scm ends here