From 7871c5530347eed557f822496a50c3c997f6e219 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 11 Nov 2019 11:07:18 +0100 Subject: Add error for invalid main. --- module/main.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/main.scm') 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)]) -- cgit v1.2.3