correct error message

pull/102/head
Matthew Butterick 9 years ago
parent 3083f2a4be
commit df73e9c8b6

@ -51,7 +51,7 @@
(define-values (path-dir path-name _) (split-path path)) (define-values (path-dir path-name _) (split-path path))
(message (format "compiling: ~a" path-name)) (message (format "compiling: ~a" path-name))
;; use #f to signal compile error. Otherwise allow errors to pass. ;; 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))) (path->hash path)))
(place-channel-put ch result))) (place-channel-put ch result)))
(place-channel-put p path) (place-channel-put p path)

Loading…
Cancel
Save