diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-04 13:13:30 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-04 13:13:30 +0100 |
| commit | c8a60066052f3e4306dea5db4bfe00eec7b90fdf (patch) | |
| tree | 4a3ee0015f7f91f63442df1cd134b7e0db40a82e /module/main.scm | |
| parent | Merge branch 'restruct' (diff) | |
| download | calp-c8a60066052f3e4306dea5db4bfe00eec7b90fdf.tar.gz calp-c8a60066052f3e4306dea5db4bfe00eec7b90fdf.tar.xz | |
Slight improvement to main.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/main.scm b/module/main.scm index 242883ea..1e7a5a84 100755 --- a/module/main.scm +++ b/module/main.scm @@ -97,9 +97,9 @@ exec guile -e main -s $0 "$@" ((ical) ical-main) ((server) server-main)) c e ropt))) - calendar-files: (or (and=> (option-ref opts 'file #f) - list) - (calendar-files)))) + calendar-files: (cond [(option-ref opts 'file #f) => list] + [else (calendar-files)]) + )) (newline))) (when stprof |