From 841bf955094b5261f1cd081e5c0192f958ef2e85 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 1 Jul 2015 07:41:47 +0900 Subject: [PATCH] supporting email stripping for multiple authors --- lib/chibi/snow/package.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/package.scm b/lib/chibi/snow/package.scm index 52f837d8..b053cc3c 100644 --- a/lib/chibi/snow/package.scm +++ b/lib/chibi/snow/package.scm @@ -90,7 +90,10 @@ ((not (package? pkg)) #f) ((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 (let ((email (package-email pkg))) (or (cond