Fix truncating of last vcard-property

This commit is contained in:
Jaidyn Ann 2024-02-06 22:34:34 -06:00
parent aaa6d5b292
commit 1e202b3c55

View File

@ -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.