From 4b83c63958a67a7ad8cf6e3214e4bac825d2d98f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 9 Oct 2023 13:15:27 +0200
Subject: Fix `prop` for multi-valued items.

---
 module/vcomponent/base.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent/base.scm')

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)
-- 
cgit v1.2.3