diff --git a/src/dokuwiki.scm b/src/dokuwiki.scm index 1d38233..b28eef1 100644 --- a/src/dokuwiki.scm +++ b/src/dokuwiki.scm @@ -35,6 +35,7 @@ (chicken pathname) (chicken io) (chicken string) + (chicken condition) racket-kwargs configuration util-parser @@ -68,8 +69,11 @@ ;; Parses all users from given filename (define (load-dokuwiki-users-auth fname) - (with-input-from-file fname - parse-dokuwiki-users-auth)) + (handle-exceptions + exn + '() + (with-input-from-file fname + parse-dokuwiki-users-auth))) ;; Loads all users from default dokuwiki users database (define* (dokuwiki-load-users (doku-base (*doku-base*)))