From 366dbdb9dc54082bfbcd99343ef4c6c9c7610e74 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 2 May 2015 22:43:32 +0900 Subject: [PATCH] get-user-password shouldn't assume the user exists --- lib/chibi/snow/fort.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/snow/fort.scm b/lib/chibi/snow/fort.scm index 3b9e8996..66877c23 100644 --- a/lib/chibi/snow/fort.scm +++ b/lib/chibi/snow/fort.scm @@ -96,7 +96,7 @@ (define (get-user-password cfg email) (let* ((user-dir (static-local-path cfg (email->path email))) (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)))) (define (package-dir email pkg)