From 294830a2da25bf35a9f6a19b323491aebe5515f0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 16 Jun 2020 21:22:25 +0200
Subject: Remove concatenate from get-attr.

An earlier version allowed multiple vlines, each with a list of values.
The representation is now changed to one vline per value.
---
 module/vcomponent/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index c5ec7af3..51f284cf 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -103,7 +103,7 @@
 (define (get-attr component key)
   (let ((attrs (get-attr* component key)))
     (cond [(not attrs) #f]
-          [(list? attrs) (concatenate (map value attrs))]
+          [(list? attrs) (map value attrs)]
           [else (value attrs)])))
 
 ;; TODO do something sensible here
-- 
cgit v1.2.3