diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-16 21:22:02 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-16 21:22:02 +0200 |
commit | f8119165b580810da8945a84b4d0193e0f6e74b9 (patch) | |
tree | 304275fde17e5f6082f5b9459ab36d96662c2659 /module/vcomponent/parse/types.scm | |
parent | Store unchanged datetimes in X-HNH-ORIGINAL property. (diff) | |
download | calp-f8119165b580810da8945a84b4d0193e0f6e74b9.tar.gz calp-f8119165b580810da8945a84b4d0193e0f6e74b9.tar.xz |
Multi-valued TEXT fields now always lists.
Diffstat (limited to 'module/vcomponent/parse/types.scm')
-rw-r--r-- | module/vcomponent/parse/types.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/module/vcomponent/parse/types.scm b/module/vcomponent/parse/types.scm index 3cd7dd29..7e4df6b7 100644 --- a/module/vcomponent/parse/types.scm +++ b/module/vcomponent/parse/types.scm @@ -79,10 +79,7 @@ (str '()) (done '())) (if (null? rem) - (let ((final (reverse-list->string str))) - (if (null? done) - final - (cons final done))) + (cons (reverse-list->string str) done) (case (car rem) [(#\\) (case (cadr rem) |