Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

supporting email stripping for multiple authors

Browse source
This commit is contained in:
Alex Shinn 2015-07-01 07:41:47 +09:00
parent 0c856a1bba
commit 841bf95509
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/snow/package.scm
View file

@ -90,7 +90,10 @@
((not (package? pkg)) ((not (package? pkg))
#f) #f)
((assoc-get (cdr pkg) 'authors) ((assoc-get (cdr pkg) 'authors)
=> (lambda (authors) (if show-email? authors (strip-email authors)))) => (lambda (authors)
(cond (show-email? authors)
((pair? authors) (map strip-email authors))
(else (strip-email authors)))))
(else (else
(let ((email (package-email pkg))) (let ((email (package-email pkg)))
(or (cond (or (cond