diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 23:31:17 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 12:59:19 +0200 |
| commit | 54531cb2e512371712162b17509da99808f92bf9 (patch) | |
| tree | 4f7fefa4ef4d58fa8dc3120433a04d3b72d20fe8 /module/vcomponent/base.scm | |
| parent | Simplify rrule writer. (diff) | |
| download | calp-54531cb2e512371712162b17509da99808f92bf9.tar.gz calp-54531cb2e512371712162b17509da99808f92bf9.tar.xz | |
Whitespace cleanup.
Diffstat (limited to 'module/vcomponent/base.scm')
| -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))) |