Prepare for (static) compilation - 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 7dfe50ba306ef7b0b826a0ad302ea1a3016f5b34
 (DIR) parent 28fc60ad1370b8c5b360c05176233c033186f875
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Fri,  8 Jan 2016 12:39:25 +0100
       
       Prepare for (static) compilation
       
       Diffstat:
         pee.scm                             |       5 ++++-
       
       1 file changed, 4 insertions(+), 1 deletion(-)
       ---
 (DIR) diff --git a/pee.scm b/pee.scm
       @@ -327,6 +327,8 @@
                          (print "Password store " db-name " reencrypted.")))))
        
        (define (main args)
       +  (when (null? args)
       +        (banner) (print (usage options)) (exit 1))
          (let* ((opts
                 (condition-case
                  (getopt-long args options)
       @@ -342,7 +344,7 @@
                 (init (alist-ref 'init opts)))
        
            (unless (null? (alist-ref '@ opts equal?))
       -            (fprintf (current-error-port) "Warning: superfluous option given: " (alist-ref '@ opts equal?)))
       +            (fprintf (current-error-port) "Warning: superfluous option given: ~a~%" (alist-ref '@ opts equal?)))
            (fprintf (current-error-port) "Using database file ~a~%" db-name)
            (unless (or init (check-access db-name))
                    (print "Error database " db-name " does not exist or has wrong permissions.") (exit 1))
       @@ -369,3 +371,4 @@
                 (else (banner) (print "Error: Don't know what to do") (print (usage options)) (exit 1))))))
            (exit 0)))
        
       +(main (cdr (argv)))