diff options
Diffstat (limited to '')
-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 |