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

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 649786f0cbd69083c7ae33ae1d441c19b68fc0ab
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sun Dec 27 12:04:22 2020 +0100

    import/print: package->code: Fix branching.
    
    * guix/import/print.scm (package->code)<license->code>: Branch on VAR, not 
on
    the SYMBOL-APPEND return value.
---
 guix/import/print.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/import/print.scm b/guix/import/print.scm
index d21ce57..a2ab810 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))