cdo/tsv2vcard
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix indentation

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2024-03-13 17:20:49 +00:00
parent 7a24be4b9c
commit 085736da27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tsv2vcard.scm
View File

@ -4,8 +4,8 @@
(define (tsv-fields line) (define (tsv-fields line)
(reverse (reverse
(let iter ((len (string-length line)) (let iter ((len (string-length line))
(rem (string-copy line)) (rem (string-copy line))
(idx 0) (idx 0)
(res '())) (res '()))
(cond ((>= idx len) (cons rem res)) (cond ((>= idx len) (cons rem res))
((char=? #\tab (string-ref rem idx)) ((char=? #\tab (string-ref rem idx))