diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/calp/util/config.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/module/calp/util/config.scm b/module/calp/util/config.scm index 8ecd7a81..e1417d86 100644 --- a/module/calp/util/config.scm +++ b/module/calp/util/config.scm @@ -37,11 +37,9 @@ (define (define-config% name default-value kwargs) (for (key value) in (group kwargs 2) - ;; TODO un-smart this - (set! ((or (hashq-ref config-properties key) - (error "Missing config protperty slot " key)) - name) - value)) + (aif (hashq-ref config-properties key) + (set! (it name) value) + (error "Missing config protperty slot " key))) (set-config! name (get-config name default-value))) (define-syntax define-config |