Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

get-user-password shouldn't assume the user exists

Browse source
This commit is contained in:
Alex Shinn 2015-05-02 22:43:32 +09:00
parent c7d64a19c4
commit 366dbdb9dc
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/snow/fort.scm
View file

@ -96,7 +96,7 @@
(define (get-user-password cfg email) (define (get-user-password cfg email)
(let* ((user-dir (static-local-path cfg (email->path email))) (let* ((user-dir (static-local-path cfg (email->path email)))
(key-file (make-path user-dir "pub-key")) (key-file (make-path user-dir "pub-key"))
(key (call-with-input-file key-file read))) (key (guard (exn (else #f)) (call-with-input-file key-file read))))
(and (pair? key) (assoc-get key 'password)))) (and (pair? key) (assoc-get key 'password))))
(define (package-dir email pkg) (define (package-dir email pkg)