diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-16 21:22:25 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-16 21:22:25 +0200 |
commit | 294830a2da25bf35a9f6a19b323491aebe5515f0 (patch) | |
tree | cee42ef5d902b2beb064357283b12ab6b88d5eca | |
parent | Multi-valued TEXT fields now always lists. (diff) | |
download | calp-294830a2da25bf35a9f6a19b323491aebe5515f0.tar.gz calp-294830a2da25bf35a9f6a19b323491aebe5515f0.tar.xz |
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.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/base.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 |