suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

guard the repositories warning

Browse Source 
closes PR 12842
This commit is contained in:
Robby Findler 2012-06-10 04:19:30 -05:00
parent 948a4d6184
commit d4ab45f6c5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/planet/util.rkt
View File

@ -711,9 +711,10 @@
(λ (x) (and (list? x) (λ (x) (and (list? x)
(srfi1:lset<= equal? x '("3xx" "4.x")))) (srfi1:lset<= equal? x '("3xx" "4.x"))))
(announce "Repositories: ~s\n" repositories) (announce "Repositories: ~s\n" repositories)
(warn (string-append (unless repositories
"Package's info.rkt does not contain a repositories field." (warn (string-append
" The package will be listed in all repositories by default."))] "Package's info.rkt does not contain a repositories field."
" The package will be listed in all repositories by default.")))]
[version [version
string? string?
(announce "Version description: ~a\n" version)]))]) (announce "Version description: ~a\n" version)]))])