From f558ea4d3e0cdb0f78be4e30f222c411cda1a728 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 17 Mar 2022 21:00:06 +0100 Subject: Unsmarted define-config% --- module/calp/util/config.scm | 8 +++----- 1 file 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 -- cgit v1.2.3