diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-11 11:07:18 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-11 11:07:18 +0100 |
commit | 7871c5530347eed557f822496a50c3c997f6e219 (patch) | |
tree | 411bf7228de5dd433e0cfe827f8563ee88e24a33 /module | |
parent | Fix next and prev month buttons. (diff) | |
download | calp-7871c5530347eed557f822496a50c3c997f6e219.tar.gz calp-7871c5530347eed557f822496a50c3c997f6e219.tar.xz |
Add error for invalid main.
Diffstat (limited to '')
-rwxr-xr-x | module/main.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm index 4bf20ede..0727d3ca 100755 --- a/module/main.scm +++ b/module/main.scm @@ -95,7 +95,8 @@ exec guile -e main -s $0 "$@" ((import) import-main) ((info) info-main) ((ical) ical-main) - ((server) server-main)) + ((server) server-main) + (else => (lambda (s) (error "Unsupported mode of operation:" s)))) c e ropt))) calendar-files: (cond [(option-ref opts 'file #f) => list] [else (calendar-files)]) |