From df73e9c8b6ed5eddfba06fe8c94f5d85f77155cb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 26 Aug 2015 16:20:27 -0700 Subject: [PATCH] correct error message --- cache.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cache.rkt b/cache.rkt index 19eb212..8eb8adb 100644 --- a/cache.rkt +++ b/cache.rkt @@ -51,7 +51,7 @@ (define-values (path-dir path-name _) (split-path path)) (message (format "compiling: ~a" path-name)) ;; use #f to signal compile error. Otherwise allow errors to pass. - (define result (with-handlers ([exn:fail? (λ _ (message "~a failed" path-name) #f)]) + (define result (with-handlers ([exn:fail? (λ _ (message ("compile failed: ~a" path-name)) #f)]) (path->hash path))) (place-channel-put ch result))) (place-channel-put p path)