Correct another refactoring error - pee - Pee a password manager;Pee - because you have to...
 (HTM) git clone git://vernunftzentrum.de/pee.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) LICENSE
       ---
 (DIR) commit ebacb381fa5bdd4fab0f9a095d0d8b399eed8ba0
 (DIR) parent 082d3285cd1ef4a7940ffab1ef41727c6a0f943c
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Sat,  9 Jan 2016 17:40:38 +0100
       
       Correct another refactoring error
       
       Diffstat:
         pee.scm                             |       9 +++++----
       
       1 file changed, 5 insertions(+), 4 deletions(-)
       ---
 (DIR) diff --git a/pee.scm b/pee.scm
       @@ -268,16 +268,17 @@
                                   (alist-update account (list user password comment) db equal?)
                                   p)
                      (print "Entry '" account "' has been updated."))))
       -        (else (print "Error> Entry for '" account "' not found.")
       +        (else (print "Error: Entry for '" account "' not found.")
                      (exit 1))))
        
        (define (do-delete db-name db p account)
          (cond ((alist-ref account db equal?) =>
                 (lambda (e)
                   (print-without-password (cons account e))
       -           (if (ask-yes-or-no "Really delete account?")
       -               (encrypt-file db-name  (alist-delete account db equal?) p)
       -               (print "Entry '" (car e) "' deleted."))))
       +           (cond ((ask-yes-or-no "Really delete account?")
       +                  (encrypt-file db-name  (alist-delete account db equal?) p)
       +                  (print "Entry '" (car e) "' deleted."))
       +                 (else (print "Nothing done.")))))
                (else (print "Error: Entry for '" account "' not found")
                      (exit 1))))