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

added a log-info call to incidate when a compilation finishes

Browse Source
This commit is contained in:
Robby Findler 2011-01-22 16:01:10 -06:00
parent 0fe0858ba8
commit 23012928a6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/compiler/cm.rkt
View File

@ -434,7 +434,12 @@
(exn:get-module-code-path ex)
(exn-message ex))
(raise ex))])
(compile-zo* mode path src-sha1 read-src-syntax zo-name up-to-date)))))
(compile-zo* mode path src-sha1 read-src-syntax zo-name up-to-date)))
(log-info (format "cm: ~acompiled ~a"
(build-string
(depth)
(λ (x) (if (= 2 (modulo x 3)) #\| #\space)))
actual-path))))
(lambda ()
(when locked?
(lc 'unlock zo-name))))))))))))