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

avoid stderr output for cs build

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-29 09:18:07 -07:00
parent 1cbc331532
commit c628414d6c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -258,7 +258,7 @@ DEFAULT_SCHEME_SRC = racket/src/build/ChezScheme
MAKE_BUILD_SCHEME = y
CHEZ_SCHEME_REPO = https://github.com/mflatt/ChezScheme
GIT_CLONE_ARGS_qq = --depth 1
GIT_CLONE_ARGS_qq = -q --depth 1
# Altenative source for Chez Scheme repo, normally set by
# the distro-build client driver
@ -361,7 +361,7 @@ racket/src/build/ChezScheme:
else $(MAKE) clone-ChezScheme-as-extra GIT_CLONE_ARGS_qq="" ; fi
update-ChezScheme:
cd racket/src/build/ChezScheme && git pull && git submodule update
cd racket/src/build/ChezScheme && git pull -q && git submodule -q update
clone-ChezScheme-as-extra:
cd racket/src/build && git clone $(GIT_CLONE_ARGS_qq) $(EXTRA_REPOS_BASE)ChezScheme/.git

4
racket/src/expander/run/status.rkt
View File

@ -3,10 +3,10 @@
(provide log-status
lines)
(define stderr (current-error-port))
(define stdout (current-output-port))
(define (log-status fmt . args)
(apply fprintf stderr (string-append fmt "\n") args))
(apply fprintf stdout (string-append fmt "\n") args))
(define (lines prefix vals)
(apply