me
/
guix
Archived
1
0
Fork 0
Code

import/print: package->code: Fix branching. 

* guix/import/print.scm (package->code)<license->code>: Branch on VAR, not on
the SYMBOL-APPEND return value.
master
Ricardo Wurmus 2020-12-27 12:04:22 +01:00
parent 63ebc380a8
commit 649786f0cb
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/import/print.scm
View File

@ -57,7 +57,8 @@ 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 (symbol-append 'license: var)
(if var
(symbol-append 'license: var)
`(license
(name ,(license-name lic))
(uri ,(license-uri lic))