From 7bbf2470bbdc46089dec1eb4c2328d0c87ba594f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 3 Aug 2020 12:39:30 +0200 Subject: 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. --- module/main.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'module/main.scm') 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 -- cgit v1.2.3