From 649786f0cbd69083c7ae33ae1d441c19b68fc0ab Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 27 Dec 2020 12:04:22 +0100
Subject: 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 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))
-- 
cgit v1.2.3

ype='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6'>refs</a><a class='active' href='/guix/log/TODO'>log</a><a href='/guix/tree/TODO?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6'>tree</a><a href='/guix/commit/TODO?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6'>commit</a><a href='/guix/diff/TODO?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/TODO'>
<input type='hidden' name='id' value='857ff51562f7f42b86f8eba5b883d07b4645eeb6'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6'>root</a>/<a href='/guix/log/TODO?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6'>TODO</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/TODO?id=857ff51562f7f42b86f8eba5b883d07b4645eeb6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-01-21 09:59:41 +0100'>2019-01-21</span></td><td><a href='/guix/commit/TODO?id=b93d2602f72dbbd9334a4f5c75b8721e1f2fa35a'>Update 'TODO'</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-01-17 14:11:15 +0100'>2019-01-17</span></td><td><a href='/guix/commit/TODO?id=11b68c90cd89288906c595d5c31a0413ed8a496f'>Update 'TODO'.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2016-09-01 14:57:03 +0200'>2016-09-01</span></td><td><a href='/guix/commit/TODO?id=e5cd149f681cc8d285da6c7638b70a43b333f337'>Update 'TODO'.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>