From 54531cb2e512371712162b17509da99808f92bf9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 May 2020 23:31:17 +0200 Subject: Whitespace cleanup. --- module/vcomponent/base.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'module/vcomponent/base.scm') 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))) -- cgit v1.2.3