diff options
| author |  Tom Willemsen | 2012-09-26 00:22:32 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-09-26 00:22:32 +0200 |
| commit | b585ff11d0675332f090d120624df82368ff0362 (patch) | |
| tree | ba0d60dbfe6c41a0281a492c26eaf42b0e4f1fe6 | |
| parent | 0b9682ea2b6291b8058c6c5a81eee682023b7f29 (diff) | |
| download | gitto-b585ff11d0675332f090d120624df82368ff0362.tar.gz gitto-b585ff11d0675332f090d120624df82368ff0362.zip | |
Use ? for bool values
| -rw-r--r-- | gitto/main.scm | 26 |
1 files 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))))) |