diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-02 23:14:02 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-02 23:14:02 +0200 |
commit | 3dbdc3e893bd4203707b1f0a6c30683a74c7e88c (patch) | |
tree | f23334ab44c06624e4b48f4f1098f174276c5d70 /module/util | |
parent | week-day-name rethrow with better error. (diff) | |
download | calp-3dbdc3e893bd4203707b1f0a6c30683a74c7e88c.tar.gz calp-3dbdc3e893bd4203707b1f0a6c30683a74c7e88c.tar.xz |
Remove ensure? for configs, built in instead.
Diffstat (limited to '')
-rw-r--r-- | module/util/config.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/module/util/config.scm b/module/util/config.scm index fbf2bebe..68758ad0 100644 --- a/module/util/config.scm +++ b/module/util/config.scm @@ -15,15 +15,6 @@ :use-module (util) ) -(define-public (ensure pred?) - (lambda (v) - (unless (pred? v) - (error (format #f "Value [~s] doesn't satisfy condition ~a" - v (or (procedure-name pred?) "")))) - v)) - - - (define-once config-values (make-hash-table)) (define-record-type <config> |