Use spaces instead of tabs for indentation

tsv2vcard.scm

@@ -4,7 +4,7 @@
 (define (tsv-fields line)
   (reverse
    (let iter ((len (string-length line))
-              (rem (string-copy line))
+		      (rem (string-copy line))
               (idx 0)
               (res '()))
      (cond ((>= idx len) (cons rem res))
@@ -16,7 +16,19 @@
            (else (iter len rem (+ idx 1) res))))))
 
 (define (vcard name number)
-  (format "BEGIN:VCARD~%N:;~a;;;~%TEL;TYPE=cell:~a~%END:VCARD~%" name number))
+  (with-output-to-string
+    (lambda ()
+      (display "BEGIN:VCARD")
+      (newline)
+      (display "N:;")
+      (display name)
+      (display ";;;")
+      (newline)
+      (display "TEL;TYPE=cell:")
+      (display number)
+      (newline)
+      (display "END:VCARD")
+      (newline))))
 
 (define (tsv-contact->vcard line)
   (let* ((fields (tsv-fields line))