From 23012928a68d56baa1f1d9b8c755c3fc07f57c53 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 22 Jan 2011 16:01:10 -0600 Subject: [PATCH] added a log-info call to incidate when a compilation finishes --- collects/compiler/cm.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index a80b387476..be1db3c218 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -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))))))))))))