summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-12-27 12:04:22 +0100
committerRicardo Wurmus <rekado@elephly.net>2020-12-27 12:04:22 +0100
commit649786f0cbd69083c7ae33ae1d441c19b68fc0ab (patch)
treead0924ac15966c66734dfb1024a12f0494d5831d /guix/import
parent63ebc380a8ae2997113a6df3b6f6d9ec706a289f (diff)
import/print: package->code: Fix branching.
* guix/import/print.scm (package->code)<license->code>: Branch on VAR, not on the SYMBOL-APPEND return value.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/print.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/import/print.scm b/guix/import/print.scm
index d21ce57aeb..a2ab810a5c 100644
--- a/guix/import/print.scm
+++ b/guix/import/print.scm
@@ -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))