Fix line-splitting function (remove extraneous “:”)

vcarded.scm

@@ -34,14 +34,18 @@
 
 ;; Splits a line into a cons of the property-string and value-string.
 ;; … basically splits the string along the first unescaped colon (:).
+;;    "apple\:berry:mom:dad" → ("apple\:berry" . "mom:dad")
 (define (split-vcard-line line)
   (let [(split (irregex-extract "(\\\\:|[^:])*" line))]
     (if (>= (length split) 2)
         (cons
          (car split)
-         (reduce-right
+         ;; Drop the value’s first char (redundant “:”) and concatenate the
-          (lambda (a b) (string-concatenate (list a ":" b)))
+         ;; rest of the string-parts which were erroneously split along “:”.
-          "" (cdr split)))
+         (string-drop (reduce-right
+                       (lambda (a b) (string-concatenate (list a ":" b)))
+                       "" (cdr split))
+                      1))
         #f)))