diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-04 14:14:53 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-04 14:14:53 +0100 |
| commit | 8be804ad5f9e91befa0d1d5738b242ebc368cf36 (patch) | |
| tree | e5e2a9b6331bf79c83e692fdcbb22fd50582fef5 /module/vcomponent/base.scm | |
| parent | Set geiser scheme to guile in main. (diff) | |
| download | calp-8be804ad5f9e91befa0d1d5738b242ebc368cf36.tar.gz calp-8be804ad5f9e91befa0d1d5738b242ebc368cf36.tar.xz | |
Maybe fixed timezone?
Diffstat (limited to 'module/vcomponent/base.scm')
| -rw-r--r-- | module/vcomponent/base.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 52bbe0c3..2041e126 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -16,8 +16,8 @@ (value get-vline-value set-vline-value!) (parameters get-vline-parameters)) -(define*-public (make-vline value #:optional ht) - (make-vline% value (or ht (make-hash-table)))) +(define*-public (make-vline value #:optional (ht (make-hash-table))) + (make-vline% value ht)) (define-record-type <vcomponent> (make-vcomponent% type children parent attributes) |