From 1381f0b8812ceddbb006db1e29c8bc75c8d826a8 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Wed, 13 Mar 2024 17:20:56 +0000
Subject: [PATCH] Use unless instead of when

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

diff --git a/tsv2vcard.scm b/tsv2vcard.scm
index d9f0a42..cd43fec 100644
--- a/tsv2vcard.scm
+++ b/tsv2vcard.scm
@@ -39,7 +39,7 @@
 (define (foreach-line thunk)
   (let loop ()
 	(let ((line (get-line (current-input-port))))
-	  (when (not (eof-object? line))
+	  (unless (eof-object? line)
 		(display (thunk line))
 		(loop)))))