Fix truncating of last vcard-property
This commit is contained in:
parent
aaa6d5b292
commit
1e202b3c55
|
@ -154,7 +154,7 @@
|
||||||
(let [(element (read-vcard-element))]
|
(let [(element (read-vcard-element))]
|
||||||
(if (not (eof-object? (peek-char)))
|
(if (not (eof-object? (peek-char)))
|
||||||
(append (list element) (read-vcard))
|
(append (list element) (read-vcard))
|
||||||
element)))
|
(list element))))
|
||||||
|
|
||||||
|
|
||||||
;; Read a single unfolded line into a vcard “element” list.
|
;; Read a single unfolded line into a vcard “element” list.
|
||||||
|
|
Ŝarĝante…
Reference in New Issue