diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-17 21:00:06 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-28 14:17:01 +0200 |
| commit | f558ea4d3e0cdb0f78be4e30f222c411cda1a728 (patch) | |
| tree | 330c1e872f3c6610538bb9455b8ba4c9386b35dd | |
| parent | Stop exporting internal time+% (diff) | |
| download | calp-f558ea4d3e0cdb0f78be4e30f222c411cda1a728.tar.gz calp-f558ea4d3e0cdb0f78be4e30f222c411cda1a728.tar.xz | |
Unsmarted define-config%
| -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 |