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

avoid defeating an optimization in the loggging code during raco make

Browse Source
This commit is contained in:
Robby Findler 2016-03-27 16:21:41 -05:00
parent 6a5b7ae9f9
commit a1ba579666
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler-lib/compiler/commands/make.rkt
View File

@ -70,9 +70,9 @@
[did-one? #f]) [did-one? #f])
(parameterize ([current-namespace n] (parameterize ([current-namespace n]
[manager-trace-handler [manager-trace-handler
(lambda (p) (if (very-verbose)
(when (very-verbose) (λ (p) (printf " ~a\n" p))
(printf " ~a\n" p)))] (manager-trace-handler))]
[manager-compile-notify-handler [manager-compile-notify-handler
(lambda (p) (lambda (p)
(set! did-one? #t) (set! did-one? #t)