diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 12:39:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 12:41:15 +0200 |
| commit | 7bbf2470bbdc46089dec1eb4c2328d0c87ba594f (patch) | |
| tree | 56aa27c14ed7f42a7a184ce715983795ea9d839a /module/main.scm | |
| parent | Add TODO's about early load. (diff) | |
| download | calp-7bbf2470bbdc46089dec1eb4c2328d0c87ba594f.tar.gz calp-7bbf2470bbdc46089dec1eb4c2328d0c87ba594f.tar.xz | |
Resolve (datetime instance) TODO with ./configure?
Tried adding a ./configure script, which mostly is responsible for
downloading a default zoneinfo file, and setting up the environment for
the program.
I have for quite a while thought about having a configure system for
things like these, but also for setting up default paths. Let's see if
it works out.
Diffstat (limited to 'module/main.scm')
| -rw-r--r-- | module/main.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/module/main.scm b/module/main.scm index a0708275..98a07c44 100644 --- a/module/main.scm +++ b/module/main.scm @@ -5,6 +5,14 @@ (set! (@ (global) basedir) (car %load-path)) +(catch 'misc-error + (lambda () (use-modules (autoconfig))) + (lambda (err caller fmt args . rest) + (if (eqv? (caadr args) 'autoconfig) + (format (current-error-port) "Run ./configure first~%") + (format (current-error-port) "~?~%" fmt args)) + (exit 1))) + (use-modules (srfi srfi-1) (srfi srfi-88) ; keyword syntax |