From d4ab45f6c559aab1e8dd45460f14dcf06d6c44ab Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 10 Jun 2012 04:19:30 -0500 Subject: [PATCH] guard the repositories warning closes PR 12842 --- collects/planet/util.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/planet/util.rkt b/collects/planet/util.rkt index ed83e06320..eff9aa7c0a 100644 --- a/collects/planet/util.rkt +++ b/collects/planet/util.rkt @@ -711,9 +711,10 @@ (λ (x) (and (list? x) (srfi1:lset<= equal? x '("3xx" "4.x")))) (announce "Repositories: ~s\n" repositories) - (warn (string-append - "Package's info.rkt does not contain a repositories field." - " The package will be listed in all repositories by default."))] + (unless repositories + (warn (string-append + "Package's info.rkt does not contain a repositories field." + " The package will be listed in all repositories by default.")))] [version string? (announce "Version description: ~a\n" version)]))])