diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-14 17:23:33 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-16 23:41:49 +0200 |
| commit | 1475d45112243a37ae921df41977c4acf3064a6d (patch) | |
| tree | 833e6bfa22c9eb5ed87009978cc1ebadcd49425c | |
| parent | 7b2cb1bf1947a0b269fc225be3acf0bc7e1f5b1f (diff) | |
| download | guix-1475d45112243a37ae921df41977c4acf3064a6d.tar.gz | |
import/print: Return license with prefix.
* guix/import/print.scm (license->code): Prepend license: prefix.
| -rw-r--r-- | guix/import/print.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/import/print.scm b/guix/import/print.scm index 4c2a91fa4f..b819e7cf90 100644 --- a/guix/import/print.scm +++ b/guix/import/print.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2017, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,7 +57,7 @@ when evaluated." ;; Print either license variable name or the code for a license object (define (license->code lic) (let ((var (variable-name lic '(guix licenses)))) - (or var + (or (symbol-append 'license: var) `(license (name ,(license-name lic)) (uri ,(license-uri lic)) |