append vs list-star

This commit is contained in:
Jay McCarthy 2017-08-13 22:09:00 -06:00
parent f63a6544e6
commit e8e3466f48

View File

@ -632,7 +632,7 @@
[pkg-docs (package-docs pkg)])
(if (null? pkg-docs)
implied-docs
(list* pkg-docs implied-docs))))
(append pkg-docs implied-docs))))
(define has-docs? (pair? pkg-docs))
(define has-readme? (pair? (package-readme-url pkg)))
(define has-tags? (pair? (package-tags pkg)))