diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-05 23:21:06 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-05 23:21:06 +0200 |
| commit | 2e5403f74a3ece7568ee77748ec56ee29f99cb7a (patch) | |
| tree | c67f77f0c7ef45dc849194668352b0ba882ae160 /module/util | |
| parent | Add warnings-are-errors config. (diff) | |
| download | calp-2e5403f74a3ece7568ee77748ec56ee29f99cb7a.tar.gz calp-2e5403f74a3ece7568ee77748ec56ee29f99cb7a.tar.xz | |
Change top error handler.
Diffstat (limited to 'module/util')
| -rw-r--r-- | module/util/config.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/module/util/config.scm b/module/util/config.scm index a5d29f8e..0131335d 100644 --- a/module/util/config.scm +++ b/module/util/config.scm @@ -92,12 +92,11 @@ (set-value! conf it) ((config-attribute conf #:post identity) it)) - (scm-error 'config-error 'define-config - "Config [~a]: ~a doesn't sattisfy predicate ~s~%\"~a\"~%" - (list (quote ,name) - value - (get-documentation conf)) - (list value)) + (throw 'config-error 'set-config! + "~a->~a = ~s is invalid,~%Field doc is \"~a\"" + (module-name (get-source-module conf)) + key value + (get-documentation conf)) ))] [else (hashq-set! config-values key (make-unconfig value))])) |