aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/base.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/base.scm')
-rw-r--r--module/vcomponent/base.scm4
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)