From 19b60b3a7297b62fdb5e64259a41348888867655 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 18 Oct 2023 03:14:50 +0200 Subject: Move (vcomponent create) to new object system. --- module/vcomponent/create.scm | 11 ++++------- 1 file 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 - (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)) -- cgit v1.2.3