From 2e5403f74a3ece7568ee77748ec56ee29f99cb7a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 5 Jun 2020 23:21:06 +0200 Subject: Change top error handler. --- module/util/config.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'module/util') 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))])) -- cgit v1.2.3