diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-12-27 12:04:22 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-12-27 12:04:22 +0100 |
| commit | 649786f0cbd69083c7ae33ae1d441c19b68fc0ab (patch) | |
| tree | ad0924ac15966c66734dfb1024a12f0494d5831d | |
| parent | 63ebc380a8ae2997113a6df3b6f6d9ec706a289f (diff) | |
| download | guix-649786f0cbd69083c7ae33ae1d441c19b68fc0ab.tar.gz guix-649786f0cbd69083c7ae33ae1d441c19b68fc0ab.zip | |
import/print: package->code: Fix branching.
* guix/import/print.scm (package->code)<license->code>: Branch on VAR, not on
the SYMBOL-APPEND return value.
| -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 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)) |