Create vcarded module and egg

vcarded.egg

@@ -0,0 +1,8 @@
+;; -*- Scheme -*-
+((synopsis "Simple vCard parser.")
+ (author "Jaidyn Ann")
+ (category net)
+ (license "GPLv3")
+ (dependencies srfi-1 srfi-13 srfi-130 uri-common)
+ (components
+  (extension vcarded)))

vcarded.scm

@@ -13,12 +13,17 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
 
+(module vcarded
+    (read-vcard)
 
   (import
     scheme
+    (chicken base)
+    (chicken condition)
     (chicken io)
     srfi-1
     srfi-13
+    srfi-19
     srfi-130
     (prefix uri-common uri:))
 
@@ -66,7 +71,7 @@
      (map (lambda (uri-prop)
             (list uri-prop
                   (lambda strs (or (uri:uri-reference (string-join strs ";"))
-                                  (string-join sts ";")))
+                                   (string-join strs ";")))
                   (lambda (url) (uri:uri->string url))))
           vcard-url-properties)
      (map (lambda (date-prop)
@@ -170,4 +175,4 @@
           (string-concatenate
            (list line
                  (string-drop (read-folded-line) 1)))
-        line)))
+          line))))