raco setup: print "nothing to do" to stdout instead of sdterr

Printing to stderr shows through in various ways, such as
when installing a Planet package (where stdout is redirected
and stderr isn't).
This commit is contained in:
Matthew Flatt 2012-06-03 11:23:48 +08:00
parent 18fa552723
commit 42db3a7516

View File

@ -441,7 +441,8 @@
(define (check-against-all given-ccs)
(when (null? given-ccs)
(raise-user-error name-sym "nothing to do"))
(setup-printf #f "nothing to do")
(exit 1))
(define (cc->name cc)
(string-join (map path->string (cc-collection cc)) "/"))
(define (cc->cc+name+id cc)