From 792f1438e474db56c8d25398b3f8694863094f1f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 26 Sep 2016 17:10:27 -0700 Subject: [PATCH] show full path during preheat compile --- pollen/private/preheat-cache.rkt | 2 +- pollen/private/ts.rktd | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pollen/private/preheat-cache.rkt b/pollen/private/preheat-cache.rkt index 78570ec..4c55cb6 100644 --- a/pollen/private/preheat-cache.rkt +++ b/pollen/private/preheat-cache.rkt @@ -34,7 +34,7 @@ (define p (place ch (define path (place-channel-get ch)) (define-values (path-dir path-name _) (split-path path)) - (message (format "compiling: ~a" path-name)) + (message (format "compiling: ~a" path)) ;; use #f to signal compile error. Otherwise allow errors to pass. (define result (with-handlers ([exn:fail? (λ _ (message (format "compile failed: ~a" path-name)) #f)]) (path->hash path))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 0e4e6a4..80744ab 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1473015153 +1474935027