diff options
Diffstat (limited to '')
-rwxr-xr-x | module/main.scm | 2 | ||||
-rw-r--r-- | 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 () |