ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-04 02:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/import/print.scm (package->code)<license->code>: Branch on VAR, not on
the SYMBOL-APPEND return value.
This commit is contained in:
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 @@ (define (variable-name val mod)
;; Print either license variable name or the code for a license object ;; Print either license variable name or the code for a license object
(define (license->code lic) (define (license->code lic)
(let ((var (variable-name lic '(guix licenses)))) (let ((var (variable-name lic '(guix licenses))))
(or (symbol-append 'license: var) (if var
(symbol-append 'license: var)
`(license `(license
(name ,(license-name lic)) (name ,(license-name lic))
(uri ,(license-uri lic)) (uri ,(license-uri lic))