tsv2vcard.scm

@@ -39,7 +39,7 @@
 (define (foreach-line thunk)
   (let loop ()
 	(let ((line (get-line (current-input-port))))
-      (unless (eof-object? line)
+	  (when (not (eof-object? line))
 		(display (thunk line))
 		(loop)))))