diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-18 03:14:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-18 03:14:50 +0200 |
| commit | 19b60b3a7297b62fdb5e64259a41348888867655 (patch) | |
| tree | a83f471463d53dc07c7c2a7a039f29d9e37222af | |
| parent | Remove srfi-9 from defalut ignore of use2dot-all. (diff) | |
| download | calp-19b60b3a7297b62fdb5e64259a41348888867655.tar.gz calp-19b60b3a7297b62fdb5e64259a41348888867655.tar.xz | |
Move (vcomponent create) to new object system.
| -rw-r--r-- | module/vcomponent/create.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/module/vcomponent/create.scm b/module/vcomponent/create.scm index 5704b0f1..27ea6996 100644 --- a/module/vcomponent/create.scm +++ b/module/vcomponent/create.scm @@ -3,13 +3,12 @@ :use-module ((vcomponent base) :select (vline key add-child prop* vline?)) :use-module ((srfi srfi-1) :select (fold last drop-right car+cdr)) - :use-module (srfi srfi-9) - :use-module (srfi srfi-9 gnu) :use-module (srfi srfi-17) :use-module (srfi srfi-71) :use-module (srfi srfi-88) :use-module ((hnh util table) :select (alist->table)) :use-module ((hnh util) :select (swap init+last kvlist->assq ->)) + :use-module (hnh util object) :export (with-parameters as-list vcomponent @@ -56,13 +55,11 @@ -(define-immutable-record-type <list-value> - (make-list-value value) - list-value? - (value list-value-value)) +(define-type (list-value) + (list-value-value)) (define (as-list arg) - (make-list-value arg)) + (list-value list-value-value: arg)) |