From fe294992fda2015305c9f85725e8b68a1b3ccfeb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 30 Apr 2020 19:01:31 +0200
Subject: Minor changes.

---
 module/main.scm     | 2 +-
 module/util/app.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/main.scm b/module/main.scm
index 96fe2da1..332d9990 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -59,7 +59,7 @@
      (primitive-load config-file)))
 
 
-  (current-app (make-app))
+  ;; (current-app (make-app))
 
   ((@ (vcomponent) init-app) (get-config 'calendar-files))
   ((@ (datetime app) init-app))
diff --git a/module/util/app.scm b/module/util/app.scm
index 269812aa..95df741a 100644
--- a/module/util/app.scm
+++ b/module/util/app.scm
@@ -29,7 +29,7 @@
 (define (getf app field)
   (aif (hashq-ref (get-ht app) field)
        (force it)
-       #f))
+       (error "No field" field)))
 
 (define-syntax setf%
   (syntax-rules ()
-- 
cgit v1.2.3