From b585ff11d0675332f090d120624df82368ff0362 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 26 Sep 2012 00:22:32 +0200 Subject: Use ? for bool values --- gitto/main.scm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/gitto/main.scm b/gitto/main.scm index 281a5c8..ee249b5 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -189,16 +189,16 @@ to the tracked files. Utracked files will not register." (define (main args) "Parse the command line options and run the appropriate functions." (let* ((options (getopt-long args option-spec)) - (help-wanted (option-ref options 'help #f)) - (version-wanted (option-ref options 'version #f)) - (registration-needed (option-ref options 'register #f)) - (removal (option-ref options 'remove #f)) - (list (option-ref options 'repositories #f)) - (purge? (option-ref options 'purge #f))) - (cond (version-wanted (version)) - (help-wanted (help)) - (registration-needed => register-repository) - (removal => remove-repository) - (list (list-repository-locations)) - (purge? (purge)) - (#t (list-repositories))))) + (help-wanted? (option-ref options 'help #f)) + (version-wanted? (option-ref options 'version #f)) + (registration-needed? (option-ref options 'register #f)) + (removal? (option-ref options 'remove #f)) + (list? (option-ref options 'repositories #f)) + (purge? (option-ref options 'purge #f))) + (cond (version-wanted? (version)) + (help-wanted? (help)) + (registration-needed? => register-repository) + (removal? => remove-repository) + (list? (list-repository-locations)) + (purge? (purge)) + (#t (list-repositories))))) -- cgit v1.2.3-54-g00ecf