Some formatting fixes.

This commit is contained in:
Eli Barzilay 2012-09-08 15:15:47 -04:00
parent 9a884c84fa
commit ff5c9f73ce

View File

@ -18,8 +18,7 @@
(warn "no git dir found => no release info\n (~a)" (warn "no git dir found => no release info\n (~a)"
"set $GIT_DIR to a racket repo .git dir")))] "set $GIT_DIR to a racket repo .git dir")))]
[nowhere (open-output-nowhere)]) [nowhere (open-output-nowhere)])
(and dir (and dir (λ args (define o (open-output-string))
(λ args (define o (open-output-string))
(parameterize ([current-directory dir] (parameterize ([current-directory dir]
[current-output-port o] [current-output-port o]
[current-error-port nowhere]) [current-error-port nowhere])