suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing PR 7010

Browse Source 
svn: r704
This commit is contained in:
Jay McCarthy 2005-08-29 22:14:18 +00:00
parent 3ea5aebdc2
commit 9e305d1960
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/dispatch-passwords.ss
View File

@ -67,7 +67,8 @@
(define (read-passwords host-info) (define (read-passwords host-info)
(let ([password-path (host-passwords host-info)]) (let ([password-path (host-passwords host-info)])
(with-handlers ([void (lambda (exn) (with-handlers ([void (lambda (exn)
(raise (make-exn:password-file (format "could not load password file ~a" password-path) (raise (make-exn:password-file (string->immutable-string
(format "could not load password file ~a" password-path))
(current-continuation-marks))))]) (current-continuation-marks))))])
(if (and (file-exists? password-path) (memq 'read (file-or-directory-permissions password-path))) (if (and (file-exists? password-path) (memq 'read (file-or-directory-permissions password-path)))
(let ([passwords (let ([passwords