diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/base.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 9475addf..1b582f0f 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -145,15 +145,17 @@ (get-vline-parameters vline))) (define-public (copy-vcomponent component) - (make-vcomponent% (type component) - (children component) - (parent component) - ;; attributes - (alist->hashq-table - (hash-map->list (lambda (key value) (cons key (if (list? value) - (map copy-vline value) - (copy-vline value)))) - (get-component-attributes component))))) + (make-vcomponent% + (type component) + (children component) + (parent component) + ;; attributes + (alist->hashq-table + (hash-map->list (lambda (key value) + (cons key (if (list? value) + (map copy-vline value) + (copy-vline value)))) + (get-component-attributes component))))) (define-public (extract field) (lambda (e) (attr e field))) |