From 69e5567986341962e79b0d4c699d10d448eaed2e Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Thu, 22 Feb 2024 12:22:07 -0600
Subject: [PATCH] Fix typo in write-folded-line invocation

---
 vcarded.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vcarded.scm b/vcarded.scm
index 04434e4..417c834 100644
--- a/vcarded.scm
+++ b/vcarded.scm
@@ -84,7 +84,7 @@
   ;; description, but unfortunately I’m coming up empty! =w=,
   (define (write-vcard vcard-alist #!optional (port (current-output-port)))
     (for-each (lambda (element)
-                (write-folded-line (serialize-vcard-element element)))
+                (write-folded-line (serialize-vcard-element element) port))
               vcard-alist))