From c8a60066052f3e4306dea5db4bfe00eec7b90fdf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 Nov 2019 13:13:30 +0100 Subject: Slight improvement to main. --- module/main.scm | 6 +++--- 1 file 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 -- cgit v1.2.3