diff options
| -rw-r--r-- | guix/import/print.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/import/print.scm b/guix/import/print.scm index d21ce57aeb6..a2ab810a5c8 100644 --- a/guix/import/print.scm +++ b/guix/import/print.scm | |||
| @@ -57,7 +57,8 @@ when evaluated." | |||
| 57 | ;; Print either license variable name or the code for a license object | 57 | ;; Print either license variable name or the code for a license object |
| 58 | (define (license->code lic) | 58 | (define (license->code lic) |
| 59 | (let ((var (variable-name lic '(guix licenses)))) | 59 | (let ((var (variable-name lic '(guix licenses)))) |
| 60 | (or (symbol-append 'license: var) | 60 | (if var |
| 61 | (symbol-append 'license: var) | ||
| 61 | `(license | 62 | `(license |
| 62 | (name ,(license-name lic)) | 63 | (name ,(license-name lic)) |
| 63 | (uri ,(license-uri lic)) | 64 | (uri ,(license-uri lic)) |