diff options
Diffstat (limited to 'module/util/config.scm')
| -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))])) |