diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 19:01:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 19:01:31 +0200 |
| commit | fe294992fda2015305c9f85725e8b68a1b3ccfeb (patch) | |
| tree | 17e25034c04c97d8a93c3b966820733a92557af1 | |
| parent | Update HTML to use app. (diff) | |
| download | calp-fe294992fda2015305c9f85725e8b68a1b3ccfeb.tar.gz calp-fe294992fda2015305c9f85725e8b68a1b3ccfeb.tar.xz | |
Minor changes.
| -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 () |