diff options
Diffstat (limited to 'src/scm/webid-oidc/server/resource/wac.scm')
| -rw-r--r-- | src/scm/webid-oidc/server/resource/wac.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/server/resource/wac.scm b/src/scm/webid-oidc/server/resource/wac.scm index e482ce4..b9959f9 100644 --- a/src/scm/webid-oidc/server/resource/wac.scm +++ b/src/scm/webid-oidc/server/resource/wac.scm @@ -183,7 +183,16 @@ (with-session (lambda (content-type contained static-content create delete) (define (wac-check-recursive path check-default?) - (receive (main-etag auxiliary) (read-path path) + (receive (main-etag auxiliary) + (with-exception-handler + (lambda (error) + (unless (path-not-found? error) + (raise-exception error)) + (values #f '())) + (lambda () + (read-path path)) + #:unwind? #t + #:unwind-for-type &path-not-found) (let ((acl-etag (assoc-ref auxiliary acl-aux))) (if acl-etag (with-rdf-source |