From 80517b1bb4ae4a6776b0497d00ff5029d1ca6eaf Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 12 May 2017 15:57:18 -0700 Subject: [PATCH] notate a filesystem error correctly --- pollen/core.rkt | 5 ++++- pollen/private/ts.rktd | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/pollen/core.rkt b/pollen/core.rkt index a3c4b48..2a9e4cc 100644 --- a/pollen/core.rkt +++ b/pollen/core.rkt @@ -90,7 +90,10 @@ pagenode-or-path))]) (unless path ;; use `pagenode-or-path` in error message because at this point `path` is #f - (error (format "~a: no source found for '~a' in directory ~a" caller pagenode-or-path (current-directory)))) + (raise + (make-exn:fail:filesystem + (format "~a: no source found for '~a' in directory ~a" caller pagenode-or-path (current-directory)) + (current-continuation-marks)))) path)) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 451a511..15a0458 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1493654878 +1494629838