diff options
| -rw-r--r-- | module/vcomponent/base.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index ff2382bf..10f77606 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -107,7 +107,11 @@ ;; (define prop (compose-lens vline-value prop*)) (define prop (case-lambda - ((comp key) (and=> (prop* comp key) vline-value)) + ((comp key) (and=> (prop* comp key) + (lambda (x) + (if (list? x) + (map vline-value x) + (vline-value x))))) ((comp k v) (cond ((prop* comp k) => (lambda (vline) |