diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-04 01:58:26 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-09 00:54:20 +0100 |
| commit | ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7 (patch) | |
| tree | 7176aa23610558fde1c020ae0b096d2f43bc9dc7 /module/vcomponent/base.scm | |
| parent | Cleanup datetime tests. (diff) | |
| download | calp-ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7.tar.gz calp-ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7.tar.xz | |
Complete rewrite of the lens system.
The old "lens" system was more of nested accessors. This rewrites them
to be much better, at the cost of some extra up-front complexity.
Beside the change in lenses, and all required adjustments, also adds
lens creation to the define-type macro.
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent/base.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 95b14233..9b73a79e 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -161,7 +161,7 @@ (map cdr (table->list (vcomponent-children c)))) (define (add-child parent* child) - (modify parent* vcomponent-children + (modify parent* vcomponent-children* (lambda (table) (let ((child ;; TODO is this the correct place to generate UIDs? |